#Doing the Recency Frequency and monetory analysis of ecommerce dataset

df=read.csv("d:/Ecommerce Project 2.csv")
head(df)
##   InvoiceNo StockCode                         Description Quantity InvoiceDate
## 1    536365    85123A  WHITE HANGING HEART T-LIGHT HOLDER        6   29-Nov-16
## 2    536365     71053                 WHITE METAL LANTERN        6   29-Nov-16
## 3    536365    84406B      CREAM CUPID HEARTS COAT HANGER        8   29-Nov-16
## 4    536365    84029G KNITTED UNION FLAG HOT WATER BOTTLE        6   29-Nov-16
## 5    536365    84029E      RED WOOLLY HOTTIE WHITE HEART.        6   29-Nov-16
## 6    536365     22752        SET 7 BABUSHKA NESTING BOXES        2   29-Nov-16
##   UnitPrice CustomerID        Country  X
## 1      2.55      17850 United Kingdom NA
## 2      3.39      17850 United Kingdom NA
## 3      2.75      17850 United Kingdom NA
## 4      3.39      17850 United Kingdom NA
## 5      3.39      17850 United Kingdom NA
## 6      7.65      17850 United Kingdom NA
#displaying the stucture , the datatypes of ecom data frame
str(df)
## 'data.frame':    541909 obs. of  9 variables:
##  $ InvoiceNo  : chr  "536365" "536365" "536365" "536365" ...
##  $ StockCode  : chr  "85123A" "71053" "84406B" "84029G" ...
##  $ Description: chr  "WHITE HANGING HEART T-LIGHT HOLDER" "WHITE METAL LANTERN" "CREAM CUPID HEARTS COAT HANGER" "KNITTED UNION FLAG HOT WATER BOTTLE" ...
##  $ Quantity   : int  6 6 8 6 6 2 6 6 6 32 ...
##  $ InvoiceDate: chr  "29-Nov-16" "29-Nov-16" "29-Nov-16" "29-Nov-16" ...
##  $ UnitPrice  : num  2.55 3.39 2.75 3.39 3.39 7.65 4.25 1.85 1.85 1.69 ...
##  $ CustomerID : int  17850 17850 17850 17850 17850 17850 17850 17850 17850 13047 ...
##  $ Country    : chr  "United Kingdom" "United Kingdom" "United Kingdom" "United Kingdom" ...
##  $ X          : logi  NA NA NA NA NA NA ...

#need to extract numbers from InvoiceNo,Stockcode,CustomerID #eliminating characters from invoice_no

inv=gsub('[A-Z]*','',df$InvoiceNo)
inv=as.numeric(inv)
df$InvoiceNo=inv

#eliminating characters from CustomerID

cid=gsub("[^[:alnum:]]", "",df$CustomerID)
cid=as.numeric(cid)
df$CustomerID=cid
#reviewing the structure of the data frame again
str(df)
## 'data.frame':    541909 obs. of  9 variables:
##  $ InvoiceNo  : num  536365 536365 536365 536365 536365 ...
##  $ StockCode  : chr  "85123A" "71053" "84406B" "84029G" ...
##  $ Description: chr  "WHITE HANGING HEART T-LIGHT HOLDER" "WHITE METAL LANTERN" "CREAM CUPID HEARTS COAT HANGER" "KNITTED UNION FLAG HOT WATER BOTTLE" ...
##  $ Quantity   : int  6 6 8 6 6 2 6 6 6 32 ...
##  $ InvoiceDate: chr  "29-Nov-16" "29-Nov-16" "29-Nov-16" "29-Nov-16" ...
##  $ UnitPrice  : num  2.55 3.39 2.75 3.39 3.39 7.65 4.25 1.85 1.85 1.69 ...
##  $ CustomerID : num  17850 17850 17850 17850 17850 ...
##  $ Country    : chr  "United Kingdom" "United Kingdom" "United Kingdom" "United Kingdom" ...
##  $ X          : logi  NA NA NA NA NA NA ...
#Analysing the missing values

df_missing=sapply(df,function(x)(sum(is.na(x))))
df_missing[df_missing>0]
## CustomerID          X 
##     135080     541909
# dropping the column x as it has no values
df_missing
##   InvoiceNo   StockCode Description    Quantity InvoiceDate   UnitPrice 
##           0           0           0           0           0           0 
##  CustomerID     Country           X 
##      135080           0      541909
df=df[,-9]


#removing the rows with null customer id
df=na.omit(df)
df_missing=sapply(df,function(x)(sum(is.na(x))))
df_missing[df_missing>0]
## named integer(0)
dim(df)
## [1] 406829      8

#creating a column total_price as quantity*unit_price

df$tot_price=df$Quantity*df$UnitPrice

str(df)
## 'data.frame':    406829 obs. of  9 variables:
##  $ InvoiceNo  : num  536365 536365 536365 536365 536365 ...
##  $ StockCode  : chr  "85123A" "71053" "84406B" "84029G" ...
##  $ Description: chr  "WHITE HANGING HEART T-LIGHT HOLDER" "WHITE METAL LANTERN" "CREAM CUPID HEARTS COAT HANGER" "KNITTED UNION FLAG HOT WATER BOTTLE" ...
##  $ Quantity   : int  6 6 8 6 6 2 6 6 6 32 ...
##  $ InvoiceDate: chr  "29-Nov-16" "29-Nov-16" "29-Nov-16" "29-Nov-16" ...
##  $ UnitPrice  : num  2.55 3.39 2.75 3.39 3.39 7.65 4.25 1.85 1.85 1.69 ...
##  $ CustomerID : num  17850 17850 17850 17850 17850 ...
##  $ Country    : chr  "United Kingdom" "United Kingdom" "United Kingdom" "United Kingdom" ...
##  $ tot_price  : num  15.3 20.3 22 20.3 20.3 ...
##  - attr(*, "na.action")= 'omit' Named int [1:135080] 623 1444 1445 1446 1447 1448 1449 1450 1451 1452 ...
##   ..- attr(*, "names")= chr [1:135080] "623" "1444" "1445" "1446" ...
View(df)
library(plyr)
## Warning: package 'plyr' was built under R version 4.0.5
df_country=count(df$Country)


df_country=df_country[order(df_country$freq),]
head(df_country)
##                 x freq
## 29   Saudi Arabia   10
## 3         Bahrain   17
## 9  Czech Republic   30
## 5          Brazil   32
## 22      Lithuania   35
## 21        Lebanon   45
#converting country to factor variables

df$Country=as.factor(df$Country)

#creating columns for calculating recency freqiuency and monetory analysis

#grouping the  data by customer id ,how much the customer has spend


library(dplyr)
## Warning: package 'dplyr' was built under R version 4.0.5
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:plyr':
## 
##     arrange, count, desc, failwith, id, mutate, rename, summarise,
##     summarize
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
df_price=df%>%
  group_by(CustomerID)%>%
  summarise("tot"=sum(tot_price))
head(df_price)
## # A tibble: 6 x 2
##   CustomerID   tot
##        <dbl> <dbl>
## 1      12346    0 
## 2      12347 4310 
## 3      12348 1797.
## 4      12349 1758.
## 5      12350  334.
## 6      12352 1545.
nrow(df_price)
## [1] 4372

#grouping the data by customer id ,based on how many times they have transacted

library(dplyr)
# df_inv_cid=df %>%
# group_by(CustomerID)%>%
# count(InvoiceNo)



df_txn=df %>%
  group_by(CustomerID) %>%
  summarise(count=n())
head(df_txn)
## # A tibble: 6 x 2
##   CustomerID count
##        <dbl> <int>
## 1      12346     2
## 2      12347   182
## 3      12348    31
## 4      12349    73
## 5      12350    17
## 6      12352    95
nrow(df_txn)
## [1] 4372

#separating date into day month and year

library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.0.5
## -- Attaching packages --------------------------------------- tidyverse 1.3.1 --
## v ggplot2 3.3.5     v purrr   0.3.4
## v tibble  3.1.2     v stringr 1.4.0
## v tidyr   1.1.3     v forcats 0.5.1
## v readr   1.4.0
## Warning: package 'ggplot2' was built under R version 4.0.5
## Warning: package 'tibble' was built under R version 4.0.5
## Warning: package 'tidyr' was built under R version 4.0.5
## Warning: package 'readr' was built under R version 4.0.5
## Warning: package 'purrr' was built under R version 4.0.5
## Warning: package 'stringr' was built under R version 4.0.5
## Warning: package 'forcats' was built under R version 4.0.5
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::arrange()   masks plyr::arrange()
## x purrr::compact()   masks plyr::compact()
## x dplyr::count()     masks plyr::count()
## x dplyr::failwith()  masks plyr::failwith()
## x dplyr::filter()    masks stats::filter()
## x dplyr::id()        masks plyr::id()
## x dplyr::lag()       masks stats::lag()
## x dplyr::mutate()    masks plyr::mutate()
## x dplyr::rename()    masks plyr::rename()
## x dplyr::summarise() masks plyr::summarise()
## x dplyr::summarize() masks plyr::summarize()
df2=separate(df,"InvoiceDate",into=c("Day","Month","Year"),sep="-")
head(df2)
##   InvoiceNo StockCode                         Description Quantity Day Month
## 1    536365    85123A  WHITE HANGING HEART T-LIGHT HOLDER        6  29   Nov
## 2    536365     71053                 WHITE METAL LANTERN        6  29   Nov
## 3    536365    84406B      CREAM CUPID HEARTS COAT HANGER        8  29   Nov
## 4    536365    84029G KNITTED UNION FLAG HOT WATER BOTTLE        6  29   Nov
## 5    536365    84029E      RED WOOLLY HOTTIE WHITE HEART.        6  29   Nov
## 6    536365     22752        SET 7 BABUSHKA NESTING BOXES        2  29   Nov
##   Year UnitPrice CustomerID        Country tot_price
## 1   16      2.55      17850 United Kingdom     15.30
## 2   16      3.39      17850 United Kingdom     20.34
## 3   16      2.75      17850 United Kingdom     22.00
## 4   16      3.39      17850 United Kingdom     20.34
## 5   16      3.39      17850 United Kingdom     20.34
## 6   16      7.65      17850 United Kingdom     15.30
unique(df2$Month)
##  [1] "Nov" "Dec" "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct"

#the total transactions by month

library(dplyr)
install.packages("dplyr")
## Warning: package 'dplyr' is in use and will not be installed
df2%>%
  group_by(Month)%>%
  summarise(sum(tot_price))
## # A tibble: 12 x 2
##    Month `sum(tot_price)`
##    <chr>            <dbl>
##  1 Apr            409698.
##  2 Aug            643654.
##  3 Dec            717385.
##  4 Feb            434829.
##  5 Jan            517833.
##  6 Jul            602283.
##  7 Jun            576932.
##  8 Mar            562237.
##  9 May            684053.
## 10 Nov           1245328.
## 11 Oct           1029836.
## 12 Sep            875996.
df2%>%
  group_by(Year)%>%
  summarise(sum(tot_price))
## # A tibble: 2 x 2
##   Year  `sum(tot_price)`
##   <chr>            <dbl>
## 1 16             554604.
## 2 17            7745462.

#calculating recency of each customer

head(df)
##   InvoiceNo StockCode                         Description Quantity InvoiceDate
## 1    536365    85123A  WHITE HANGING HEART T-LIGHT HOLDER        6   29-Nov-16
## 2    536365     71053                 WHITE METAL LANTERN        6   29-Nov-16
## 3    536365    84406B      CREAM CUPID HEARTS COAT HANGER        8   29-Nov-16
## 4    536365    84029G KNITTED UNION FLAG HOT WATER BOTTLE        6   29-Nov-16
## 5    536365    84029E      RED WOOLLY HOTTIE WHITE HEART.        6   29-Nov-16
## 6    536365     22752        SET 7 BABUSHKA NESTING BOXES        2   29-Nov-16
##   UnitPrice CustomerID        Country tot_price
## 1      2.55      17850 United Kingdom     15.30
## 2      3.39      17850 United Kingdom     20.34
## 3      2.75      17850 United Kingdom     22.00
## 4      3.39      17850 United Kingdom     20.34
## 5      3.39      17850 United Kingdom     20.34
## 6      7.65      17850 United Kingdom     15.30
df$InvoiceDate=as.Date(df$InvoiceDate,format="%d-%b-%y")
max(df$InvoiceDate)
## [1] "2017-12-07"
nrow(df)
## [1] 406829
library(dplyr)
df_date=df%>%
  group_by(CustomerID)%>%
  summarise(max(InvoiceDate))

nrow(df_date)
## [1] 4372
df_date$diff_in_days = difftime( max(df$InvoiceDate),df_date$`max(InvoiceDate)`, units = "days")

df_date
## # A tibble: 4,372 x 3
##    CustomerID `max(InvoiceDate)` diff_in_days
##         <dbl> <date>             <drtn>      
##  1      12346 2017-01-16         325 days    
##  2      12347 2017-12-05           2 days    
##  3      12348 2017-09-23          75 days    
##  4      12349 2017-11-19          18 days    
##  5      12350 2017-01-31         310 days    
##  6      12352 2017-11-01          36 days    
##  7      12353 2017-05-17         204 days    
##  8      12354 2017-04-19         232 days    
##  9      12355 2017-05-07         214 days    
## 10      12356 2017-11-15          22 days    
## # ... with 4,362 more rows

#combining recency, frequency and monetory parameters in a single data frame

rfm_matrix=data.frame(cbind("custid"=df_price$CustomerID,"recency"=df_date$diff_in_days,"frequency"=df_txn$count,"monetory"=df_price$tot))
nrow(rfm_matrix)
## [1] 4372
head(rfm_matrix)
##   custid recency frequency monetory
## 1  12346     325         2     0.00
## 2  12347       2       182  4310.00
## 3  12348      75        31  1797.24
## 4  12349      18        73  1757.55
## 5  12350     310        17   334.40
## 6  12352      36        95  1545.41
#install.packages("OneR")
library("OneR")
## Warning: package 'OneR' was built under R version 4.0.5
head(rfm_matrix$monetory)
## [1]    0.00 4310.00 1797.24 1757.55  334.40 1545.41
min(rfm_matrix$monetory)
## [1] -4287.63
max(rfm_matrix$monetory)
## [1] 279489
#creating bins for each variables recency, frequency and monetory

#creating bins for monetory 

summary(rfm_matrix$monetory)
##     Min.  1st Qu.   Median     Mean  3rd Qu.     Max. 
##  -4287.6    293.4    648.1   1898.5   1611.7 279489.0
b <- c(-Inf,293.4,648.1,1898.5,1611.7,Inf)
names <- c("1", "2", "3","4","5")
rfm_matrix<-rfm_matrix%>%mutate(mon_bins = cut(monetory, breaks = b,labels=names))
head(rfm_matrix)
##   custid recency frequency monetory mon_bins
## 1  12346     325         2     0.00        1
## 2  12347       2       182  4310.00        5
## 3  12348      75        31  1797.24        4
## 4  12349      18        73  1757.55        4
## 5  12350     310        17   334.40        2
## 6  12352      36        95  1545.41        3
#creating bins for recency

summary(rfm_matrix$recency)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    0.00   16.00   50.00   91.58  143.00  373.00
b <- c(-Inf,16,50,91.58,143,Inf)
names <- c("5", "4", "3","2","1")
rfm_matrix<-rfm_matrix%>%mutate(rec_bins = cut(recency, breaks = b,labels=names))
head(rfm_matrix)
##   custid recency frequency monetory mon_bins rec_bins
## 1  12346     325         2     0.00        1        1
## 2  12347       2       182  4310.00        5        5
## 3  12348      75        31  1797.24        4        3
## 4  12349      18        73  1757.55        4        4
## 5  12350     310        17   334.40        2        1
## 6  12352      36        95  1545.41        3        4
#creating bins for frequency

summary(rfm_matrix$frequency)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1.00   17.00   42.00   93.05  102.00 7983.00
b <- c(-Inf,17,42,93.5,102,Inf)
names <- c("1", "2", "3","4","5")
rfm_matrix<-rfm_matrix%>%mutate(freq_bins = cut(frequency, breaks = b,labels=names))
head(rfm_matrix)
##   custid recency frequency monetory mon_bins rec_bins freq_bins
## 1  12346     325         2     0.00        1        1         1
## 2  12347       2       182  4310.00        5        5         5
## 3  12348      75        31  1797.24        4        3         2
## 4  12349      18        73  1757.55        4        4         3
## 5  12350     310        17   334.40        2        1         1
## 6  12352      36        95  1545.41        3        4         4
rfm_bin=rfm_matrix[,c(1,5,7,6)]

head(rfm_bin)
##   custid mon_bins freq_bins rec_bins
## 1  12346        1         1        1
## 2  12347        5         5        5
## 3  12348        4         2        3
## 4  12349        4         3        4
## 5  12350        2         1        1
## 6  12352        3         4        4
str(rfm_bin)
## 'data.frame':    4372 obs. of  4 variables:
##  $ custid   : num  12346 12347 12348 12349 12350 ...
##  $ mon_bins : Factor w/ 5 levels "1","2","3","4",..: 1 5 4 4 2 3 1 3 2 5 ...
##  $ freq_bins: Factor w/ 5 levels "1","2","3","4",..: 1 5 2 3 1 4 1 3 1 3 ...
##  $ rec_bins : Factor w/ 5 levels "5","4","3","2",..: 5 1 3 2 5 2 5 5 5 2 ...
rfm_bin$mon_bins=as.numeric(rfm_bin$mon_bins)
rfm_bin$rec_bins=as.numeric(rfm_bin$rec_bins)
rfm_bin$freq_bins=as.numeric(rfm_bin$freq_bins)
head(rfm_bin)
##   custid mon_bins freq_bins rec_bins
## 1  12346        1         1        5
## 2  12347        5         5        1
## 3  12348        4         2        3
## 4  12349        4         3        2
## 5  12350        2         1        5
## 6  12352        3         4        2
head(rfm_bin)
##   custid mon_bins freq_bins rec_bins
## 1  12346        1         1        5
## 2  12347        5         5        1
## 3  12348        4         2        3
## 4  12349        4         3        2
## 5  12350        2         1        5
## 6  12352        3         4        2
str(rfm_bin)
## 'data.frame':    4372 obs. of  4 variables:
##  $ custid   : num  12346 12347 12348 12349 12350 ...
##  $ mon_bins : num  1 5 4 4 2 3 1 3 2 5 ...
##  $ freq_bins: num  1 5 2 3 1 4 1 3 1 3 ...
##  $ rec_bins : num  5 1 3 2 5 2 5 5 5 2 ...
head(rfm_bin)
##   custid mon_bins freq_bins rec_bins
## 1  12346        1         1        5
## 2  12347        5         5        1
## 3  12348        4         2        3
## 4  12349        4         3        2
## 5  12350        2         1        5
## 6  12352        3         4        2
str(rfm_bin)
## 'data.frame':    4372 obs. of  4 variables:
##  $ custid   : num  12346 12347 12348 12349 12350 ...
##  $ mon_bins : num  1 5 4 4 2 3 1 3 2 5 ...
##  $ freq_bins: num  1 5 2 3 1 4 1 3 1 3 ...
##  $ rec_bins : num  5 1 3 2 5 2 5 5 5 2 ...
rfm_bin$tot_score=(rfm_bin$rec_bins+rfm_bin$freq_bins+rfm_bin$mon_bins)/3
nrow(rfm_bin)
## [1] 4372
nrow(df)
## [1] 406829

#clustering based on RFM analysis

#Creating an elbow plot

n=1:15
wss=function(k){
  kmod=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],k)
  kmod$tot.withinss
  
}


library(tidyverse)
wss_values=map_dbl(n,wss)
wss_values
##  [1] 28750.382 13685.063  8776.721  7280.519  6134.432  6406.554  4775.672
##  [8]  4210.945  3908.109  3672.767  3609.317  2954.139  3126.468  2682.152
## [15]  2405.128
plot(n, wss_values,
     type="b", pch = 19, frame = FALSE, 
     xlab="Number of clusters K",
     col="red",
     ylab="Total within-clusters sum of squares")

#making clusters by k=3

k_mod3=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=3)
k_mod3$cluster
##    [1] 2 3 1 3 2 3 2 2 2 3 3 1 3 3 2 3 2 1 2 1 3 3 1 2 1 1 2 3 1 3 3 2 1 2 3 1 1
##   [38] 1 1 3 3 3 2 2 2 1 2 3 3 3 3 2 1 1 2 3 3 2 1 1 2 3 2 1 2 1 3 3 1 3 3 3 1 1
##   [75] 2 3 3 2 1 3 1 1 2 1 3 2 3 1 2 1 3 3 3 1 2 1 1 1 1 2 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 1 1 2 1 1 1 3 3 3 2 1 2 2 2 1 2 2 1 1 2 2 1 3 3 1 3 2 1 3 3 1 1
##  [149] 3 3 1 1 2 1 3 1 3 3 1 1 1 1 2 2 1 2 1 3 3 3 1 2 3 2 3 2 2 1 3 3 1 1 2 2 1
##  [186] 3 3 1 2 1 2 3 3 3 1 1 1 1 2 2 2 2 3 1 3 3 1 3 2 2 1 2 2 1 1 3 1 1 3 2 3 1
##  [223] 1 1 3 1 3 2 2 2 2 3 3 1 1 1 3 3 3 1 2 1 2 1 2 2 3 1 3 2 2 1 2 2 2 1 3 1 1
##  [260] 1 1 3 3 2 2 1 3 2 3 2 1 3 1 3 1 1 3 3 3 3 3 2 3 1 2 1 2 1 1 1 3 1 1 1 3 3
##  [297] 2 3 3 2 3 1 3 2 1 2 1 1 3 3 1 1 1 2 3 3 1 2 3 2 2 2 2 2 2 1 1 3 3 3 3 3 2
##  [334] 3 3 2 2 2 3 3 3 3 2 2 3 2 2 1 1 1 3 1 3 1 1 1 1 2 2 2 2 2 1 1 2 1 2 1 2 2
##  [371] 1 2 2 2 2 2 1 2 1 1 1 3 1 1 2 3 2 1 2 2 3 2 3 3 3 3 1 3 1 2 1 1 2 2 2 3 2
##  [408] 3 2 1 2 3 2 3 3 2 1 2 2 2 3 3 1 1 2 1 1 1 1 1 2 1 2 1 1 2 3 2 1 3 2 3 3 1
##  [445] 3 2 3 2 1 1 3 2 1 1 1 3 2 1 3 3 3 1 3 1 3 3 2 2 1 2 3 3 3 1 1 1 1 3 2 3 1
##  [482] 3 3 1 1 2 3 3 2 2 2 2 1 2 1 1 1 2 3 1 1 1 1 2 1 2 2 3 2 2 3 2 2 2 2 3 3 3
##  [519] 3 1 1 3 3 1 1 2 1 1 3 1 2 1 1 2 1 1 2 2 2 1 3 3 1 3 2 1 1 2 2 2 2 1 2 1 2
##  [556] 1 3 2 2 2 3 3 1 2 3 3 1 2 3 3 1 1 3 1 2 3 3 2 2 3 1 1 2 1 2 1 3 3 3 2 1 1
##  [593] 2 2 2 3 3 2 2 1 2 2 3 2 3 3 1 3 2 3 1 2 1 1 1 3 3 2 1 2 1 3 2 3 1 2 2 1 2
##  [630] 1 3 1 1 1 1 3 1 2 3 1 3 3 2 1 2 1 1 2 1 2 3 3 3 1 1 1 3 3 2 1 3 1 2 2 2 1
##  [667] 2 2 3 3 2 2 1 2 3 3 1 2 1 1 2 2 2 2 2 1 3 1 2 2 2 1 1 1 1 1 2 2 3 3 3 3 3
##  [704] 3 2 1 1 2 1 1 1 2 2 1 2 2 3 2 1 2 2 2 3 1 2 2 2 2 2 3 2 1 3 1 1 1 1 3 3 1
##  [741] 3 3 1 1 1 3 1 3 2 1 2 1 3 1 2 2 3 2 2 3 2 1 2 1 1 1 1 1 2 1 2 2 1 3 1 1 3
##  [778] 1 2 2 2 1 3 1 2 1 3 2 3 2 2 1 1 2 3 2 1 1 2 2 1 1 1 3 1 2 2 1 1 3 2 2 3 3
##  [815] 2 3 1 1 1 1 1 1 3 1 3 2 1 1 3 1 3 3 2 2 1 3 3 1 1 2 1 2 3 3 2 3 1 2 2 2 1
##  [852] 2 3 2 2 2 2 1 1 3 2 1 2 2 2 3 1 2 1 1 2 1 2 1 3 2 3 2 1 3 2 2 2 1 1 3 1 1
##  [889] 3 3 1 3 1 1 3 1 2 1 2 3 3 1 1 1 1 3 1 2 3 3 1 3 1 2 3 1 2 1 3 2 1 2 3 2 1
##  [926] 1 3 3 1 2 2 2 1 3 1 3 1 1 3 1 3 1 3 2 3 1 1 1 3 3 1 3 2 1 2 2 1 2 3 3 3 2
##  [963] 3 3 1 1 3 1 1 2 1 3 2 3 2 3 1 1 3 2 2 1 3 3 1 2 2 2 3 1 1 2 1 2 2 3 1 2 2
## [1000] 3 2 1 2 1 2 3 3 1 2 3 2 3 1 2 2 2 3 1 2 2 3 2 3 2 1 2 1 3 2 3 1 1 1 2 2 1
## [1037] 3 3 2 1 2 1 3 1 2 2 2 2 1 2 2 2 2 3 3 3 1 1 1 2 1 3 3 3 3 3 1 3 2 1 2 3 3
## [1074] 2 1 1 1 2 3 2 2 1 3 2 3 1 2 2 3 2 1 2 1 1 1 3 1 1 2 2 1 1 3 2 1 1 2 3 1 2
## [1111] 1 2 3 2 3 1 1 1 2 3 3 3 1 3 2 2 2 1 3 2 1 2 1 3 3 3 3 2 2 3 2 2 1 3 3 1 3
## [1148] 1 2 2 2 2 2 3 1 2 1 3 1 2 1 2 3 1 3 3 1 1 1 1 2 1 3 1 1 1 1 2 1 1 2 2 2 2
## [1185] 2 1 1 1 3 1 2 2 3 1 2 3 3 1 2 3 2 1 1 1 2 2 3 3 2 2 1 3 2 1 1 2 3 3 1 3 1
## [1222] 3 1 2 1 1 3 3 1 3 2 3 2 3 3 2 2 2 2 1 1 3 1 1 2 2 1 2 2 1 3 3 3 1 1 2 2 1
## [1259] 1 3 2 3 2 2 1 2 3 1 3 1 2 2 2 3 3 2 3 3 1 2 1 2 3 1 1 2 1 2 2 1 3 2 3 3 1
## [1296] 3 2 2 3 3 3 1 3 2 1 1 2 1 3 1 1 3 1 3 1 2 1 2 2 3 1 3 1 2 1 1 2 3 2 3 1 1
## [1333] 1 1 2 2 1 3 1 2 2 1 1 2 2 3 1 1 3 3 2 3 1 2 1 2 1 1 3 2 1 3 3 3 1 2 3 3 3
## [1370] 1 3 2 2 1 2 1 1 1 2 2 3 3 3 1 2 1 3 3 3 1 1 2 3 2 2 3 3 3 1 2 3 1 3 3 1 2
## [1407] 2 3 1 2 2 3 3 2 2 2 3 3 2 3 3 2 1 3 2 2 2 2 2 1 1 1 3 2 3 1 3 3 1 2 1 3 3
## [1444] 3 1 1 1 3 3 1 2 2 3 1 3 3 2 1 2 3 1 2 3 2 2 2 3 2 1 1 3 1 3 2 2 2 3 1 2 1
## [1481] 2 2 1 2 2 2 2 1 2 1 1 1 3 1 3 3 2 2 2 2 2 1 1 3 1 1 2 3 3 1 3 2 3 1 3 2 3
## [1518] 2 3 2 3 3 3 3 2 1 2 3 3 1 3 3 1 1 3 2 1 3 1 3 2 3 1 2 2 2 2 3 1 1 3 3 1 1
## [1555] 3 2 3 1 2 3 2 2 2 3 3 2 3 3 1 1 3 2 1 1 2 1 2 1 2 3 2 1 1 3 1 2 2 3 1 1 2
## [1592] 2 3 3 1 2 3 3 3 3 3 3 1 1 2 2 1 3 1 2 1 1 2 3 3 3 1 3 3 2 3 3 3 2 1 1 1 1
## [1629] 3 2 3 3 3 3 2 2 1 1 2 3 3 1 1 3 1 3 3 2 1 1 2 3 3 2 3 1 1 1 3 2 1 2 3 2 3
## [1666] 3 3 1 3 1 1 2 1 2 3 3 1 1 2 1 2 2 3 2 3 2 2 3 2 1 3 1 2 2 1 1 3 3 1 2 2 1
## [1703] 2 3 2 3 3 1 3 3 2 3 1 3 1 1 3 1 3 1 3 3 2 2 3 1 3 2 3 1 2 3 2 3 2 1 3 2 2
## [1740] 3 2 3 2 3 3 3 1 3 2 1 3 3 3 1 3 1 1 1 3 1 2 3 1 2 2 3 1 3 3 3 1 1 3 2 1 1
## [1777] 2 2 1 1 1 1 3 1 1 2 3 2 2 2 1 1 3 1 3 2 2 1 3 1 2 2 1 2 1 1 1 1 1 2 1 1 2
## [1814] 3 2 2 3 1 2 1 1 2 3 3 2 1 2 2 1 2 1 2 2 1 3 2 1 1 3 1 3 2 3 3 3 2 3 2 1 3
## [1851] 1 3 2 1 1 1 1 2 1 1 1 3 2 3 1 2 1 2 1 3 1 1 1 1 2 2 1 2 2 2 2 1 1 3 2 1 3
## [1888] 3 1 3 1 2 3 2 1 3 1 1 2 1 2 2 1 1 2 1 3 1 2 3 2 3 1 3 1 2 1 1 1 3 1 1 2 2
## [1925] 1 1 3 2 3 2 2 1 1 1 1 3 2 2 1 2 1 3 2 1 2 1 2 1 1 2 1 3 3 3 3 2 3 1 3 1 2
## [1962] 1 1 2 3 3 3 3 1 1 1 1 1 3 2 3 3 1 3 3 3 2 2 1 3 2 3 2 1 2 3 3 2 1 3 2 3 3
## [1999] 3 3 1 2 3 1 3 3 2 2 2 1 2 1 2 3 2 1 2 2 1 3 2 1 2 3 2 1 1 2 1 2 1 1 2 3 3
## [2036] 2 2 2 1 1 3 3 1 1 1 2 2 2 1 3 3 1 3 1 3 3 2 1 2 1 2 1 2 3 1 2 3 1 2 2 1 2
## [2073] 3 3 1 1 1 3 1 3 2 1 3 2 2 1 2 3 2 1 2 3 2 1 2 1 1 1 3 3 2 1 3 1 1 2 1 3 3
## [2110] 2 1 1 1 2 1 2 2 3 1 2 3 2 3 2 2 2 2 2 2 1 3 2 2 2 3 2 3 1 1 3 3 1 1 3 2 2
## [2147] 3 3 1 1 2 1 2 2 2 2 2 2 2 1 2 2 1 1 3 3 1 1 1 1 1 2 2 3 1 1 3 1 3 3 2 3 1
## [2184] 3 1 1 3 2 1 1 2 2 3 1 2 2 1 2 1 2 1 3 1 2 2 2 1 1 2 2 2 1 1 1 2 1 1 1 2 2
## [2221] 2 2 2 3 2 1 3 3 1 2 2 2 3 1 3 1 2 3 2 3 2 3 3 1 2 3 2 1 2 2 2 1 1 3 2 2 2
## [2258] 1 1 2 2 2 1 3 2 3 3 2 1 2 3 1 1 1 2 1 2 3 3 1 1 1 1 1 1 3 2 2 1 2 3 3 2 2
## [2295] 2 1 1 1 3 2 2 2 1 2 2 1 3 3 1 1 1 1 1 2 1 1 1 2 3 2 3 3 2 1 3 1 3 3 1 3 1
## [2332] 3 2 2 3 3 2 2 2 3 2 3 3 1 2 3 1 3 1 1 1 3 1 3 2 3 3 3 3 1 2 2 1 1 2 2 3 1
## [2369] 3 3 1 1 2 1 2 3 1 1 1 2 3 1 1 1 2 3 1 3 3 3 1 2 2 1 3 1 3 2 1 2 2 1 2 3 2
## [2406] 1 1 1 3 1 2 2 1 3 2 1 2 2 1 1 3 1 1 3 1 3 2 2 2 1 3 1 3 1 1 2 2 2 3 3 2 3
## [2443] 1 2 2 2 1 1 2 1 2 1 1 2 1 3 2 2 1 3 1 2 1 2 3 3 3 1 3 1 1 3 1 1 2 3 2 1 2
## [2480] 1 3 2 3 1 2 3 2 3 2 1 3 3 2 1 2 1 3 2 3 3 1 3 2 2 1 3 1 2 1 2 2 2 1 3 1 1
## [2517] 1 2 1 2 1 1 2 3 3 2 1 3 3 1 1 2 1 1 3 1 2 3 1 1 2 2 2 2 1 3 1 3 3 3 2 1 1
## [2554] 1 2 3 2 3 3 1 2 1 3 3 1 1 3 1 3 3 2 2 3 3 3 2 1 1 2 2 3 3 2 1 1 2 3 1 1 1
## [2591] 3 1 1 1 2 1 3 1 1 2 1 3 2 3 1 3 3 3 3 1 1 1 2 3 2 1 3 3 3 2 2 2 1 2 2 2 2
## [2628] 2 2 2 2 1 2 1 3 3 1 3 3 2 3 2 3 2 2 3 2 2 2 2 2 1 3 1 2 2 2 3 2 2 2 2 1 1
## [2665] 1 3 1 1 3 3 1 2 1 3 1 1 2 3 2 3 1 2 1 1 3 3 3 3 2 1 3 1 1 1 3 1 3 3 1 3 3
## [2702] 2 3 1 1 2 3 3 3 3 3 3 1 1 3 1 2 3 1 1 1 1 3 2 2 3 2 1 2 1 1 1 1 1 2 2 3 2
## [2739] 1 1 2 2 1 3 3 2 1 2 2 3 1 1 2 2 3 2 1 2 3 2 2 3 1 2 2 2 1 2 2 3 1 1 3 1 1
## [2776] 2 2 3 1 2 3 2 2 2 3 2 2 1 1 3 1 1 2 2 3 1 3 3 3 1 2 1 2 1 1 1 2 3 2 3 2 2
## [2813] 2 1 3 2 3 3 1 2 1 3 2 2 1 3 3 3 2 2 1 2 2 1 2 2 3 1 1 1 1 1 3 3 1 1 1 3 2
## [2850] 1 3 3 2 1 1 3 1 1 1 3 3 1 1 2 2 2 2 2 3 3 3 3 3 2 2 1 2 1 1 1 1 1 3 3 3 1
## [2887] 2 1 2 2 3 2 2 3 3 2 2 3 1 3 2 3 1 1 2 3 2 2 2 2 1 3 1 2 3 3 2 2 3 1 2 1 2
## [2924] 3 2 2 1 1 1 1 2 3 2 1 2 2 2 1 2 3 1 3 3 1 3 3 1 2 2 3 3 1 1 2 1 1 3 2 1 2
## [2961] 1 3 1 2 1 3 1 3 3 1 2 1 1 1 3 1 3 3 1 3 3 2 2 3 1 3 1 1 1 2 1 2 3 3 3 2 1
## [2998] 2 3 2 2 1 2 1 3 3 1 1 1 1 1 1 3 2 3 1 2 2 3 2 2 2 1 2 2 1 3 3 3 1 3 1 1 1
## [3035] 2 2 2 2 2 1 3 3 2 3 3 2 2 1 3 3 2 3 3 2 2 3 1 3 1 1 1 1 2 2 1 1 1 1 2 3 3
## [3072] 3 2 2 1 2 1 1 1 2 2 3 1 3 1 2 1 1 3 3 3 2 2 1 2 1 1 3 1 2 1 2 2 2 3 3 2 2
## [3109] 2 1 1 3 1 3 1 1 1 2 1 2 1 3 3 2 1 1 2 2 2 2 1 2 2 1 2 3 1 1 1 1 1 2 1 1 1
## [3146] 1 3 3 2 2 1 1 2 1 2 3 2 1 1 2 1 2 3 1 3 1 3 2 1 3 1 2 1 2 2 2 1 1 3 1 2 3
## [3183] 3 3 2 2 1 2 1 1 1 3 3 1 3 1 1 3 2 1 3 1 3 1 3 1 1 1 2 1 2 2 2 3 3 3 3 1 3
## [3220] 3 1 3 3 2 1 2 3 2 3 1 2 3 1 3 3 2 3 3 1 1 1 3 1 2 2 1 3 3 3 3 1 1 1 1 2 1
## [3257] 2 3 2 2 1 1 2 1 2 3 2 2 3 1 2 3 3 1 1 3 1 1 2 3 2 2 3 1 3 1 3 3 2 2 3 2 1
## [3294] 3 3 1 1 2 3 2 2 3 2 1 2 3 3 2 3 3 2 2 1 1 1 2 2 1 2 1 2 2 1 3 2 3 3 1 3 1
## [3331] 1 2 2 2 1 1 1 1 2 2 2 1 2 3 3 1 3 3 3 1 3 1 1 2 1 1 1 3 3 1 2 1 2 3 3 1 2
## [3368] 1 3 3 1 3 1 3 3 2 1 1 3 2 3 3 1 3 1 2 2 3 1 1 3 1 1 1 1 3 3 3 2 3 2 2 1 1
## [3405] 2 2 1 3 2 1 2 2 1 2 2 2 3 2 1 1 1 2 1 3 2 1 3 3 3 1 3 1 1 2 3 2 1 2 2 1 3
## [3442] 1 1 1 1 1 1 1 3 3 1 3 1 1 1 2 3 2 2 1 1 1 2 1 1 2 1 3 3 1 2 2 1 2 3 3 2 1
## [3479] 2 1 1 3 2 3 2 1 1 2 3 3 2 3 3 1 1 1 2 1 1 3 2 3 3 3 3 3 3 3 2 1 1 3 1 1 2
## [3516] 2 3 3 2 1 3 1 2 2 1 2 2 2 2 1 3 2 3 3 2 1 2 3 2 2 1 2 3 2 2 1 1 1 1 1 3 3
## [3553] 3 1 3 2 1 1 2 1 3 2 1 2 2 3 1 3 1 2 3 2 1 3 1 2 1 3 1 3 2 1 2 3 2 3 3 2 3
## [3590] 1 3 1 1 2 2 1 3 2 2 3 1 1 2 1 3 1 3 2 2 3 1 2 1 2 1 2 2 1 1 1 2 2 1 2 3 1
## [3627] 2 2 3 1 2 2 2 3 3 1 3 3 3 1 2 3 1 1 2 1 1 1 2 3 2 2 1 2 3 3 3 1 2 3 3 1 2
## [3664] 1 1 2 1 2 3 3 2 3 3 2 1 1 3 2 3 2 1 1 2 1 2 1 2 1 3 1 2 3 3 2 3 1 1 3 1 2
## [3701] 2 1 3 1 3 2 1 1 1 3 1 1 3 2 2 2 3 1 2 3 3 1 3 3 3 2 2 1 1 1 1 1 3 1 3 1 3
## [3738] 1 1 3 2 3 2 1 2 1 1 3 1 2 2 3 2 3 2 1 2 3 3 3 1 2 2 2 2 1 3 1 3 1 3 2 1 1
## [3775] 3 1 3 2 1 1 1 2 1 3 3 2 1 2 2 2 1 2 1 1 3 2 1 2 2 3 1 3 3 1 2 1 3 2 3 1 1
## [3812] 1 1 2 2 1 1 3 3 2 2 2 2 1 1 1 2 3 2 2 1 2 2 1 2 3 3 2 1 2 1 1 1 3 3 2 3 2
## [3849] 1 2 3 2 1 2 3 2 1 3 2 3 3 3 3 1 1 3 2 1 2 3 1 2 1 3 3 3 3 1 2 2 1 2 2 1 1
## [3886] 1 3 2 3 2 1 1 3 1 1 2 1 2 2 3 2 2 3 2 1 3 3 1 2 3 3 1 3 2 3 1 1 3 1 3 2 1
## [3923] 3 3 1 3 1 3 2 1 1 3 1 3 3 3 2 2 2 2 2 3 2 2 3 2 3 1 2 3 3 2 2 2 1 1 2 2 3
## [3960] 2 3 1 3 2 1 3 1 3 3 1 2 1 1 3 1 1 3 3 2 3 2 2 2 3 2 3 3 3 3 1 1 2 1 2 1 3
## [3997] 3 2 1 1 3 2 3 1 2 1 2 1 3 1 2 3 1 1 2 1 3 3 3 3 1 1 3 3 3 3 1 1 3 2 1 3 1
## [4034] 2 1 1 1 1 1 3 3 1 3 2 2 1 1 2 3 1 2 2 1 3 3 2 2 3 2 3 1 3 2 1 2 3 2 3 2 2
## [4071] 1 2 2 2 3 3 1 3 2 1 2 2 2 1 2 3 1 1 2 1 2 2 1 1 1 2 2 1 2 1 1 1 1 3 3 2 3
## [4108] 2 2 1 1 1 2 1 1 2 1 3 2 3 2 1 2 1 2 3 1 1 3 2 2 1 2 2 3 2 3 3 1 2 2 2 2 2
## [4145] 1 3 3 2 1 2 3 2 2 1 2 2 1 2 2 2 2 3 1 1 2 1 1 1 2 2 2 2 1 1 3 1 2 2 3 2 2
## [4182] 1 2 1 3 1 1 2 1 3 2 3 3 1 2 2 1 3 2 1 1 3 2 2 3 1 1 2 3 2 2 3 2 3 3 2 3 1
## [4219] 1 1 1 2 2 2 1 3 2 3 2 3 3 2 1 3 1 1 2 2 3 1 1 2 2 3 1 3 2 2 2 3 1 3 1 1 2
## [4256] 1 2 1 1 2 3 2 2 2 3 3 2 1 1 1 2 1 1 3 1 2 1 3 1 2 1 3 2 1 1 3 1 1 2 1 3 3
## [4293] 3 1 2 1 2 3 1 2 2 1 2 1 3 3 2 2 2 3 1 1 3 1 2 2 1 1 1 2 3 2 1 2 3 2 3 3 2
## [4330] 1 3 3 3 1 2 3 1 1 2 1 3 3 3 1 2 1 2 1 1 2 2 3 3 3 1 2 1 1 2 2 1 3 1 1 1 2
## [4367] 2 2 2 1 3 3
k_mod3
## K-means clustering with 3 clusters of sizes 1582, 1466, 1324
## 
## Cluster means:
##   rec_bins freq_bins mon_bins
## 1 1.992415  2.171302 2.221871
## 2 4.636426  1.671896 1.720327
## 3 1.796073  4.669184 4.391239
## 
## Clustering vector:
##    [1] 2 3 1 3 2 3 2 2 2 3 3 1 3 3 2 3 2 1 2 1 3 3 1 2 1 1 2 3 1 3 3 2 1 2 3 1 1
##   [38] 1 1 3 3 3 2 2 2 1 2 3 3 3 3 2 1 1 2 3 3 2 1 1 2 3 2 1 2 1 3 3 1 3 3 3 1 1
##   [75] 2 3 3 2 1 3 1 1 2 1 3 2 3 1 2 1 3 3 3 1 2 1 1 1 1 2 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 1 1 2 1 1 1 3 3 3 2 1 2 2 2 1 2 2 1 1 2 2 1 3 3 1 3 2 1 3 3 1 1
##  [149] 3 3 1 1 2 1 3 1 3 3 1 1 1 1 2 2 1 2 1 3 3 3 1 2 3 2 3 2 2 1 3 3 1 1 2 2 1
##  [186] 3 3 1 2 1 2 3 3 3 1 1 1 1 2 2 2 2 3 1 3 3 1 3 2 2 1 2 2 1 1 3 1 1 3 2 3 1
##  [223] 1 1 3 1 3 2 2 2 2 3 3 1 1 1 3 3 3 1 2 1 2 1 2 2 3 1 3 2 2 1 2 2 2 1 3 1 1
##  [260] 1 1 3 3 2 2 1 3 2 3 2 1 3 1 3 1 1 3 3 3 3 3 2 3 1 2 1 2 1 1 1 3 1 1 1 3 3
##  [297] 2 3 3 2 3 1 3 2 1 2 1 1 3 3 1 1 1 2 3 3 1 2 3 2 2 2 2 2 2 1 1 3 3 3 3 3 2
##  [334] 3 3 2 2 2 3 3 3 3 2 2 3 2 2 1 1 1 3 1 3 1 1 1 1 2 2 2 2 2 1 1 2 1 2 1 2 2
##  [371] 1 2 2 2 2 2 1 2 1 1 1 3 1 1 2 3 2 1 2 2 3 2 3 3 3 3 1 3 1 2 1 1 2 2 2 3 2
##  [408] 3 2 1 2 3 2 3 3 2 1 2 2 2 3 3 1 1 2 1 1 1 1 1 2 1 2 1 1 2 3 2 1 3 2 3 3 1
##  [445] 3 2 3 2 1 1 3 2 1 1 1 3 2 1 3 3 3 1 3 1 3 3 2 2 1 2 3 3 3 1 1 1 1 3 2 3 1
##  [482] 3 3 1 1 2 3 3 2 2 2 2 1 2 1 1 1 2 3 1 1 1 1 2 1 2 2 3 2 2 3 2 2 2 2 3 3 3
##  [519] 3 1 1 3 3 1 1 2 1 1 3 1 2 1 1 2 1 1 2 2 2 1 3 3 1 3 2 1 1 2 2 2 2 1 2 1 2
##  [556] 1 3 2 2 2 3 3 1 2 3 3 1 2 3 3 1 1 3 1 2 3 3 2 2 3 1 1 2 1 2 1 3 3 3 2 1 1
##  [593] 2 2 2 3 3 2 2 1 2 2 3 2 3 3 1 3 2 3 1 2 1 1 1 3 3 2 1 2 1 3 2 3 1 2 2 1 2
##  [630] 1 3 1 1 1 1 3 1 2 3 1 3 3 2 1 2 1 1 2 1 2 3 3 3 1 1 1 3 3 2 1 3 1 2 2 2 1
##  [667] 2 2 3 3 2 2 1 2 3 3 1 2 1 1 2 2 2 2 2 1 3 1 2 2 2 1 1 1 1 1 2 2 3 3 3 3 3
##  [704] 3 2 1 1 2 1 1 1 2 2 1 2 2 3 2 1 2 2 2 3 1 2 2 2 2 2 3 2 1 3 1 1 1 1 3 3 1
##  [741] 3 3 1 1 1 3 1 3 2 1 2 1 3 1 2 2 3 2 2 3 2 1 2 1 1 1 1 1 2 1 2 2 1 3 1 1 3
##  [778] 1 2 2 2 1 3 1 2 1 3 2 3 2 2 1 1 2 3 2 1 1 2 2 1 1 1 3 1 2 2 1 1 3 2 2 3 3
##  [815] 2 3 1 1 1 1 1 1 3 1 3 2 1 1 3 1 3 3 2 2 1 3 3 1 1 2 1 2 3 3 2 3 1 2 2 2 1
##  [852] 2 3 2 2 2 2 1 1 3 2 1 2 2 2 3 1 2 1 1 2 1 2 1 3 2 3 2 1 3 2 2 2 1 1 3 1 1
##  [889] 3 3 1 3 1 1 3 1 2 1 2 3 3 1 1 1 1 3 1 2 3 3 1 3 1 2 3 1 2 1 3 2 1 2 3 2 1
##  [926] 1 3 3 1 2 2 2 1 3 1 3 1 1 3 1 3 1 3 2 3 1 1 1 3 3 1 3 2 1 2 2 1 2 3 3 3 2
##  [963] 3 3 1 1 3 1 1 2 1 3 2 3 2 3 1 1 3 2 2 1 3 3 1 2 2 2 3 1 1 2 1 2 2 3 1 2 2
## [1000] 3 2 1 2 1 2 3 3 1 2 3 2 3 1 2 2 2 3 1 2 2 3 2 3 2 1 2 1 3 2 3 1 1 1 2 2 1
## [1037] 3 3 2 1 2 1 3 1 2 2 2 2 1 2 2 2 2 3 3 3 1 1 1 2 1 3 3 3 3 3 1 3 2 1 2 3 3
## [1074] 2 1 1 1 2 3 2 2 1 3 2 3 1 2 2 3 2 1 2 1 1 1 3 1 1 2 2 1 1 3 2 1 1 2 3 1 2
## [1111] 1 2 3 2 3 1 1 1 2 3 3 3 1 3 2 2 2 1 3 2 1 2 1 3 3 3 3 2 2 3 2 2 1 3 3 1 3
## [1148] 1 2 2 2 2 2 3 1 2 1 3 1 2 1 2 3 1 3 3 1 1 1 1 2 1 3 1 1 1 1 2 1 1 2 2 2 2
## [1185] 2 1 1 1 3 1 2 2 3 1 2 3 3 1 2 3 2 1 1 1 2 2 3 3 2 2 1 3 2 1 1 2 3 3 1 3 1
## [1222] 3 1 2 1 1 3 3 1 3 2 3 2 3 3 2 2 2 2 1 1 3 1 1 2 2 1 2 2 1 3 3 3 1 1 2 2 1
## [1259] 1 3 2 3 2 2 1 2 3 1 3 1 2 2 2 3 3 2 3 3 1 2 1 2 3 1 1 2 1 2 2 1 3 2 3 3 1
## [1296] 3 2 2 3 3 3 1 3 2 1 1 2 1 3 1 1 3 1 3 1 2 1 2 2 3 1 3 1 2 1 1 2 3 2 3 1 1
## [1333] 1 1 2 2 1 3 1 2 2 1 1 2 2 3 1 1 3 3 2 3 1 2 1 2 1 1 3 2 1 3 3 3 1 2 3 3 3
## [1370] 1 3 2 2 1 2 1 1 1 2 2 3 3 3 1 2 1 3 3 3 1 1 2 3 2 2 3 3 3 1 2 3 1 3 3 1 2
## [1407] 2 3 1 2 2 3 3 2 2 2 3 3 2 3 3 2 1 3 2 2 2 2 2 1 1 1 3 2 3 1 3 3 1 2 1 3 3
## [1444] 3 1 1 1 3 3 1 2 2 3 1 3 3 2 1 2 3 1 2 3 2 2 2 3 2 1 1 3 1 3 2 2 2 3 1 2 1
## [1481] 2 2 1 2 2 2 2 1 2 1 1 1 3 1 3 3 2 2 2 2 2 1 1 3 1 1 2 3 3 1 3 2 3 1 3 2 3
## [1518] 2 3 2 3 3 3 3 2 1 2 3 3 1 3 3 1 1 3 2 1 3 1 3 2 3 1 2 2 2 2 3 1 1 3 3 1 1
## [1555] 3 2 3 1 2 3 2 2 2 3 3 2 3 3 1 1 3 2 1 1 2 1 2 1 2 3 2 1 1 3 1 2 2 3 1 1 2
## [1592] 2 3 3 1 2 3 3 3 3 3 3 1 1 2 2 1 3 1 2 1 1 2 3 3 3 1 3 3 2 3 3 3 2 1 1 1 1
## [1629] 3 2 3 3 3 3 2 2 1 1 2 3 3 1 1 3 1 3 3 2 1 1 2 3 3 2 3 1 1 1 3 2 1 2 3 2 3
## [1666] 3 3 1 3 1 1 2 1 2 3 3 1 1 2 1 2 2 3 2 3 2 2 3 2 1 3 1 2 2 1 1 3 3 1 2 2 1
## [1703] 2 3 2 3 3 1 3 3 2 3 1 3 1 1 3 1 3 1 3 3 2 2 3 1 3 2 3 1 2 3 2 3 2 1 3 2 2
## [1740] 3 2 3 2 3 3 3 1 3 2 1 3 3 3 1 3 1 1 1 3 1 2 3 1 2 2 3 1 3 3 3 1 1 3 2 1 1
## [1777] 2 2 1 1 1 1 3 1 1 2 3 2 2 2 1 1 3 1 3 2 2 1 3 1 2 2 1 2 1 1 1 1 1 2 1 1 2
## [1814] 3 2 2 3 1 2 1 1 2 3 3 2 1 2 2 1 2 1 2 2 1 3 2 1 1 3 1 3 2 3 3 3 2 3 2 1 3
## [1851] 1 3 2 1 1 1 1 2 1 1 1 3 2 3 1 2 1 2 1 3 1 1 1 1 2 2 1 2 2 2 2 1 1 3 2 1 3
## [1888] 3 1 3 1 2 3 2 1 3 1 1 2 1 2 2 1 1 2 1 3 1 2 3 2 3 1 3 1 2 1 1 1 3 1 1 2 2
## [1925] 1 1 3 2 3 2 2 1 1 1 1 3 2 2 1 2 1 3 2 1 2 1 2 1 1 2 1 3 3 3 3 2 3 1 3 1 2
## [1962] 1 1 2 3 3 3 3 1 1 1 1 1 3 2 3 3 1 3 3 3 2 2 1 3 2 3 2 1 2 3 3 2 1 3 2 3 3
## [1999] 3 3 1 2 3 1 3 3 2 2 2 1 2 1 2 3 2 1 2 2 1 3 2 1 2 3 2 1 1 2 1 2 1 1 2 3 3
## [2036] 2 2 2 1 1 3 3 1 1 1 2 2 2 1 3 3 1 3 1 3 3 2 1 2 1 2 1 2 3 1 2 3 1 2 2 1 2
## [2073] 3 3 1 1 1 3 1 3 2 1 3 2 2 1 2 3 2 1 2 3 2 1 2 1 1 1 3 3 2 1 3 1 1 2 1 3 3
## [2110] 2 1 1 1 2 1 2 2 3 1 2 3 2 3 2 2 2 2 2 2 1 3 2 2 2 3 2 3 1 1 3 3 1 1 3 2 2
## [2147] 3 3 1 1 2 1 2 2 2 2 2 2 2 1 2 2 1 1 3 3 1 1 1 1 1 2 2 3 1 1 3 1 3 3 2 3 1
## [2184] 3 1 1 3 2 1 1 2 2 3 1 2 2 1 2 1 2 1 3 1 2 2 2 1 1 2 2 2 1 1 1 2 1 1 1 2 2
## [2221] 2 2 2 3 2 1 3 3 1 2 2 2 3 1 3 1 2 3 2 3 2 3 3 1 2 3 2 1 2 2 2 1 1 3 2 2 2
## [2258] 1 1 2 2 2 1 3 2 3 3 2 1 2 3 1 1 1 2 1 2 3 3 1 1 1 1 1 1 3 2 2 1 2 3 3 2 2
## [2295] 2 1 1 1 3 2 2 2 1 2 2 1 3 3 1 1 1 1 1 2 1 1 1 2 3 2 3 3 2 1 3 1 3 3 1 3 1
## [2332] 3 2 2 3 3 2 2 2 3 2 3 3 1 2 3 1 3 1 1 1 3 1 3 2 3 3 3 3 1 2 2 1 1 2 2 3 1
## [2369] 3 3 1 1 2 1 2 3 1 1 1 2 3 1 1 1 2 3 1 3 3 3 1 2 2 1 3 1 3 2 1 2 2 1 2 3 2
## [2406] 1 1 1 3 1 2 2 1 3 2 1 2 2 1 1 3 1 1 3 1 3 2 2 2 1 3 1 3 1 1 2 2 2 3 3 2 3
## [2443] 1 2 2 2 1 1 2 1 2 1 1 2 1 3 2 2 1 3 1 2 1 2 3 3 3 1 3 1 1 3 1 1 2 3 2 1 2
## [2480] 1 3 2 3 1 2 3 2 3 2 1 3 3 2 1 2 1 3 2 3 3 1 3 2 2 1 3 1 2 1 2 2 2 1 3 1 1
## [2517] 1 2 1 2 1 1 2 3 3 2 1 3 3 1 1 2 1 1 3 1 2 3 1 1 2 2 2 2 1 3 1 3 3 3 2 1 1
## [2554] 1 2 3 2 3 3 1 2 1 3 3 1 1 3 1 3 3 2 2 3 3 3 2 1 1 2 2 3 3 2 1 1 2 3 1 1 1
## [2591] 3 1 1 1 2 1 3 1 1 2 1 3 2 3 1 3 3 3 3 1 1 1 2 3 2 1 3 3 3 2 2 2 1 2 2 2 2
## [2628] 2 2 2 2 1 2 1 3 3 1 3 3 2 3 2 3 2 2 3 2 2 2 2 2 1 3 1 2 2 2 3 2 2 2 2 1 1
## [2665] 1 3 1 1 3 3 1 2 1 3 1 1 2 3 2 3 1 2 1 1 3 3 3 3 2 1 3 1 1 1 3 1 3 3 1 3 3
## [2702] 2 3 1 1 2 3 3 3 3 3 3 1 1 3 1 2 3 1 1 1 1 3 2 2 3 2 1 2 1 1 1 1 1 2 2 3 2
## [2739] 1 1 2 2 1 3 3 2 1 2 2 3 1 1 2 2 3 2 1 2 3 2 2 3 1 2 2 2 1 2 2 3 1 1 3 1 1
## [2776] 2 2 3 1 2 3 2 2 2 3 2 2 1 1 3 1 1 2 2 3 1 3 3 3 1 2 1 2 1 1 1 2 3 2 3 2 2
## [2813] 2 1 3 2 3 3 1 2 1 3 2 2 1 3 3 3 2 2 1 2 2 1 2 2 3 1 1 1 1 1 3 3 1 1 1 3 2
## [2850] 1 3 3 2 1 1 3 1 1 1 3 3 1 1 2 2 2 2 2 3 3 3 3 3 2 2 1 2 1 1 1 1 1 3 3 3 1
## [2887] 2 1 2 2 3 2 2 3 3 2 2 3 1 3 2 3 1 1 2 3 2 2 2 2 1 3 1 2 3 3 2 2 3 1 2 1 2
## [2924] 3 2 2 1 1 1 1 2 3 2 1 2 2 2 1 2 3 1 3 3 1 3 3 1 2 2 3 3 1 1 2 1 1 3 2 1 2
## [2961] 1 3 1 2 1 3 1 3 3 1 2 1 1 1 3 1 3 3 1 3 3 2 2 3 1 3 1 1 1 2 1 2 3 3 3 2 1
## [2998] 2 3 2 2 1 2 1 3 3 1 1 1 1 1 1 3 2 3 1 2 2 3 2 2 2 1 2 2 1 3 3 3 1 3 1 1 1
## [3035] 2 2 2 2 2 1 3 3 2 3 3 2 2 1 3 3 2 3 3 2 2 3 1 3 1 1 1 1 2 2 1 1 1 1 2 3 3
## [3072] 3 2 2 1 2 1 1 1 2 2 3 1 3 1 2 1 1 3 3 3 2 2 1 2 1 1 3 1 2 1 2 2 2 3 3 2 2
## [3109] 2 1 1 3 1 3 1 1 1 2 1 2 1 3 3 2 1 1 2 2 2 2 1 2 2 1 2 3 1 1 1 1 1 2 1 1 1
## [3146] 1 3 3 2 2 1 1 2 1 2 3 2 1 1 2 1 2 3 1 3 1 3 2 1 3 1 2 1 2 2 2 1 1 3 1 2 3
## [3183] 3 3 2 2 1 2 1 1 1 3 3 1 3 1 1 3 2 1 3 1 3 1 3 1 1 1 2 1 2 2 2 3 3 3 3 1 3
## [3220] 3 1 3 3 2 1 2 3 2 3 1 2 3 1 3 3 2 3 3 1 1 1 3 1 2 2 1 3 3 3 3 1 1 1 1 2 1
## [3257] 2 3 2 2 1 1 2 1 2 3 2 2 3 1 2 3 3 1 1 3 1 1 2 3 2 2 3 1 3 1 3 3 2 2 3 2 1
## [3294] 3 3 1 1 2 3 2 2 3 2 1 2 3 3 2 3 3 2 2 1 1 1 2 2 1 2 1 2 2 1 3 2 3 3 1 3 1
## [3331] 1 2 2 2 1 1 1 1 2 2 2 1 2 3 3 1 3 3 3 1 3 1 1 2 1 1 1 3 3 1 2 1 2 3 3 1 2
## [3368] 1 3 3 1 3 1 3 3 2 1 1 3 2 3 3 1 3 1 2 2 3 1 1 3 1 1 1 1 3 3 3 2 3 2 2 1 1
## [3405] 2 2 1 3 2 1 2 2 1 2 2 2 3 2 1 1 1 2 1 3 2 1 3 3 3 1 3 1 1 2 3 2 1 2 2 1 3
## [3442] 1 1 1 1 1 1 1 3 3 1 3 1 1 1 2 3 2 2 1 1 1 2 1 1 2 1 3 3 1 2 2 1 2 3 3 2 1
## [3479] 2 1 1 3 2 3 2 1 1 2 3 3 2 3 3 1 1 1 2 1 1 3 2 3 3 3 3 3 3 3 2 1 1 3 1 1 2
## [3516] 2 3 3 2 1 3 1 2 2 1 2 2 2 2 1 3 2 3 3 2 1 2 3 2 2 1 2 3 2 2 1 1 1 1 1 3 3
## [3553] 3 1 3 2 1 1 2 1 3 2 1 2 2 3 1 3 1 2 3 2 1 3 1 2 1 3 1 3 2 1 2 3 2 3 3 2 3
## [3590] 1 3 1 1 2 2 1 3 2 2 3 1 1 2 1 3 1 3 2 2 3 1 2 1 2 1 2 2 1 1 1 2 2 1 2 3 1
## [3627] 2 2 3 1 2 2 2 3 3 1 3 3 3 1 2 3 1 1 2 1 1 1 2 3 2 2 1 2 3 3 3 1 2 3 3 1 2
## [3664] 1 1 2 1 2 3 3 2 3 3 2 1 1 3 2 3 2 1 1 2 1 2 1 2 1 3 1 2 3 3 2 3 1 1 3 1 2
## [3701] 2 1 3 1 3 2 1 1 1 3 1 1 3 2 2 2 3 1 2 3 3 1 3 3 3 2 2 1 1 1 1 1 3 1 3 1 3
## [3738] 1 1 3 2 3 2 1 2 1 1 3 1 2 2 3 2 3 2 1 2 3 3 3 1 2 2 2 2 1 3 1 3 1 3 2 1 1
## [3775] 3 1 3 2 1 1 1 2 1 3 3 2 1 2 2 2 1 2 1 1 3 2 1 2 2 3 1 3 3 1 2 1 3 2 3 1 1
## [3812] 1 1 2 2 1 1 3 3 2 2 2 2 1 1 1 2 3 2 2 1 2 2 1 2 3 3 2 1 2 1 1 1 3 3 2 3 2
## [3849] 1 2 3 2 1 2 3 2 1 3 2 3 3 3 3 1 1 3 2 1 2 3 1 2 1 3 3 3 3 1 2 2 1 2 2 1 1
## [3886] 1 3 2 3 2 1 1 3 1 1 2 1 2 2 3 2 2 3 2 1 3 3 1 2 3 3 1 3 2 3 1 1 3 1 3 2 1
## [3923] 3 3 1 3 1 3 2 1 1 3 1 3 3 3 2 2 2 2 2 3 2 2 3 2 3 1 2 3 3 2 2 2 1 1 2 2 3
## [3960] 2 3 1 3 2 1 3 1 3 3 1 2 1 1 3 1 1 3 3 2 3 2 2 2 3 2 3 3 3 3 1 1 2 1 2 1 3
## [3997] 3 2 1 1 3 2 3 1 2 1 2 1 3 1 2 3 1 1 2 1 3 3 3 3 1 1 3 3 3 3 1 1 3 2 1 3 1
## [4034] 2 1 1 1 1 1 3 3 1 3 2 2 1 1 2 3 1 2 2 1 3 3 2 2 3 2 3 1 3 2 1 2 3 2 3 2 2
## [4071] 1 2 2 2 3 3 1 3 2 1 2 2 2 1 2 3 1 1 2 1 2 2 1 1 1 2 2 1 2 1 1 1 1 3 3 2 3
## [4108] 2 2 1 1 1 2 1 1 2 1 3 2 3 2 1 2 1 2 3 1 1 3 2 2 1 2 2 3 2 3 3 1 2 2 2 2 2
## [4145] 1 3 3 2 1 2 3 2 2 1 2 2 1 2 2 2 2 3 1 1 2 1 1 1 2 2 2 2 1 1 3 1 2 2 3 2 2
## [4182] 1 2 1 3 1 1 2 1 3 2 3 3 1 2 2 1 3 2 1 1 3 2 2 3 1 1 2 3 2 2 3 2 3 3 2 3 1
## [4219] 1 1 1 2 2 2 1 3 2 3 2 3 3 2 1 3 1 1 2 2 3 1 1 2 2 3 1 3 2 2 2 3 1 3 1 1 2
## [4256] 1 2 1 1 2 3 2 2 2 3 3 2 1 1 1 2 1 1 3 1 2 1 3 1 2 1 3 2 1 1 3 1 1 2 1 3 3
## [4293] 3 1 2 1 2 3 1 2 2 1 2 1 3 3 2 2 2 3 1 1 3 1 2 2 1 1 1 2 3 2 1 2 3 2 3 3 2
## [4330] 1 3 3 3 1 2 3 1 1 2 1 3 3 3 1 2 1 2 1 1 2 2 3 3 3 1 2 1 1 2 2 1 3 1 1 1 2
## [4367] 2 2 2 1 3 3
## 
## Within cluster sum of squares by cluster:
## [1] 3039.609 2583.731 3153.381
##  (between_SS / total_SS =  69.5 %)
## 
## Available components:
## 
## [1] "cluster"      "centers"      "totss"        "withinss"     "tot.withinss"
## [6] "betweenss"    "size"         "iter"         "ifault"
df_mod3=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod3$cluster)
df_mod3$cluster=as.factor(df_mod3$cluster)
k_mod3
## K-means clustering with 3 clusters of sizes 1582, 1466, 1324
## 
## Cluster means:
##   rec_bins freq_bins mon_bins
## 1 1.992415  2.171302 2.221871
## 2 4.636426  1.671896 1.720327
## 3 1.796073  4.669184 4.391239
## 
## Clustering vector:
##    [1] 2 3 1 3 2 3 2 2 2 3 3 1 3 3 2 3 2 1 2 1 3 3 1 2 1 1 2 3 1 3 3 2 1 2 3 1 1
##   [38] 1 1 3 3 3 2 2 2 1 2 3 3 3 3 2 1 1 2 3 3 2 1 1 2 3 2 1 2 1 3 3 1 3 3 3 1 1
##   [75] 2 3 3 2 1 3 1 1 2 1 3 2 3 1 2 1 3 3 3 1 2 1 1 1 1 2 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 1 1 2 1 1 1 3 3 3 2 1 2 2 2 1 2 2 1 1 2 2 1 3 3 1 3 2 1 3 3 1 1
##  [149] 3 3 1 1 2 1 3 1 3 3 1 1 1 1 2 2 1 2 1 3 3 3 1 2 3 2 3 2 2 1 3 3 1 1 2 2 1
##  [186] 3 3 1 2 1 2 3 3 3 1 1 1 1 2 2 2 2 3 1 3 3 1 3 2 2 1 2 2 1 1 3 1 1 3 2 3 1
##  [223] 1 1 3 1 3 2 2 2 2 3 3 1 1 1 3 3 3 1 2 1 2 1 2 2 3 1 3 2 2 1 2 2 2 1 3 1 1
##  [260] 1 1 3 3 2 2 1 3 2 3 2 1 3 1 3 1 1 3 3 3 3 3 2 3 1 2 1 2 1 1 1 3 1 1 1 3 3
##  [297] 2 3 3 2 3 1 3 2 1 2 1 1 3 3 1 1 1 2 3 3 1 2 3 2 2 2 2 2 2 1 1 3 3 3 3 3 2
##  [334] 3 3 2 2 2 3 3 3 3 2 2 3 2 2 1 1 1 3 1 3 1 1 1 1 2 2 2 2 2 1 1 2 1 2 1 2 2
##  [371] 1 2 2 2 2 2 1 2 1 1 1 3 1 1 2 3 2 1 2 2 3 2 3 3 3 3 1 3 1 2 1 1 2 2 2 3 2
##  [408] 3 2 1 2 3 2 3 3 2 1 2 2 2 3 3 1 1 2 1 1 1 1 1 2 1 2 1 1 2 3 2 1 3 2 3 3 1
##  [445] 3 2 3 2 1 1 3 2 1 1 1 3 2 1 3 3 3 1 3 1 3 3 2 2 1 2 3 3 3 1 1 1 1 3 2 3 1
##  [482] 3 3 1 1 2 3 3 2 2 2 2 1 2 1 1 1 2 3 1 1 1 1 2 1 2 2 3 2 2 3 2 2 2 2 3 3 3
##  [519] 3 1 1 3 3 1 1 2 1 1 3 1 2 1 1 2 1 1 2 2 2 1 3 3 1 3 2 1 1 2 2 2 2 1 2 1 2
##  [556] 1 3 2 2 2 3 3 1 2 3 3 1 2 3 3 1 1 3 1 2 3 3 2 2 3 1 1 2 1 2 1 3 3 3 2 1 1
##  [593] 2 2 2 3 3 2 2 1 2 2 3 2 3 3 1 3 2 3 1 2 1 1 1 3 3 2 1 2 1 3 2 3 1 2 2 1 2
##  [630] 1 3 1 1 1 1 3 1 2 3 1 3 3 2 1 2 1 1 2 1 2 3 3 3 1 1 1 3 3 2 1 3 1 2 2 2 1
##  [667] 2 2 3 3 2 2 1 2 3 3 1 2 1 1 2 2 2 2 2 1 3 1 2 2 2 1 1 1 1 1 2 2 3 3 3 3 3
##  [704] 3 2 1 1 2 1 1 1 2 2 1 2 2 3 2 1 2 2 2 3 1 2 2 2 2 2 3 2 1 3 1 1 1 1 3 3 1
##  [741] 3 3 1 1 1 3 1 3 2 1 2 1 3 1 2 2 3 2 2 3 2 1 2 1 1 1 1 1 2 1 2 2 1 3 1 1 3
##  [778] 1 2 2 2 1 3 1 2 1 3 2 3 2 2 1 1 2 3 2 1 1 2 2 1 1 1 3 1 2 2 1 1 3 2 2 3 3
##  [815] 2 3 1 1 1 1 1 1 3 1 3 2 1 1 3 1 3 3 2 2 1 3 3 1 1 2 1 2 3 3 2 3 1 2 2 2 1
##  [852] 2 3 2 2 2 2 1 1 3 2 1 2 2 2 3 1 2 1 1 2 1 2 1 3 2 3 2 1 3 2 2 2 1 1 3 1 1
##  [889] 3 3 1 3 1 1 3 1 2 1 2 3 3 1 1 1 1 3 1 2 3 3 1 3 1 2 3 1 2 1 3 2 1 2 3 2 1
##  [926] 1 3 3 1 2 2 2 1 3 1 3 1 1 3 1 3 1 3 2 3 1 1 1 3 3 1 3 2 1 2 2 1 2 3 3 3 2
##  [963] 3 3 1 1 3 1 1 2 1 3 2 3 2 3 1 1 3 2 2 1 3 3 1 2 2 2 3 1 1 2 1 2 2 3 1 2 2
## [1000] 3 2 1 2 1 2 3 3 1 2 3 2 3 1 2 2 2 3 1 2 2 3 2 3 2 1 2 1 3 2 3 1 1 1 2 2 1
## [1037] 3 3 2 1 2 1 3 1 2 2 2 2 1 2 2 2 2 3 3 3 1 1 1 2 1 3 3 3 3 3 1 3 2 1 2 3 3
## [1074] 2 1 1 1 2 3 2 2 1 3 2 3 1 2 2 3 2 1 2 1 1 1 3 1 1 2 2 1 1 3 2 1 1 2 3 1 2
## [1111] 1 2 3 2 3 1 1 1 2 3 3 3 1 3 2 2 2 1 3 2 1 2 1 3 3 3 3 2 2 3 2 2 1 3 3 1 3
## [1148] 1 2 2 2 2 2 3 1 2 1 3 1 2 1 2 3 1 3 3 1 1 1 1 2 1 3 1 1 1 1 2 1 1 2 2 2 2
## [1185] 2 1 1 1 3 1 2 2 3 1 2 3 3 1 2 3 2 1 1 1 2 2 3 3 2 2 1 3 2 1 1 2 3 3 1 3 1
## [1222] 3 1 2 1 1 3 3 1 3 2 3 2 3 3 2 2 2 2 1 1 3 1 1 2 2 1 2 2 1 3 3 3 1 1 2 2 1
## [1259] 1 3 2 3 2 2 1 2 3 1 3 1 2 2 2 3 3 2 3 3 1 2 1 2 3 1 1 2 1 2 2 1 3 2 3 3 1
## [1296] 3 2 2 3 3 3 1 3 2 1 1 2 1 3 1 1 3 1 3 1 2 1 2 2 3 1 3 1 2 1 1 2 3 2 3 1 1
## [1333] 1 1 2 2 1 3 1 2 2 1 1 2 2 3 1 1 3 3 2 3 1 2 1 2 1 1 3 2 1 3 3 3 1 2 3 3 3
## [1370] 1 3 2 2 1 2 1 1 1 2 2 3 3 3 1 2 1 3 3 3 1 1 2 3 2 2 3 3 3 1 2 3 1 3 3 1 2
## [1407] 2 3 1 2 2 3 3 2 2 2 3 3 2 3 3 2 1 3 2 2 2 2 2 1 1 1 3 2 3 1 3 3 1 2 1 3 3
## [1444] 3 1 1 1 3 3 1 2 2 3 1 3 3 2 1 2 3 1 2 3 2 2 2 3 2 1 1 3 1 3 2 2 2 3 1 2 1
## [1481] 2 2 1 2 2 2 2 1 2 1 1 1 3 1 3 3 2 2 2 2 2 1 1 3 1 1 2 3 3 1 3 2 3 1 3 2 3
## [1518] 2 3 2 3 3 3 3 2 1 2 3 3 1 3 3 1 1 3 2 1 3 1 3 2 3 1 2 2 2 2 3 1 1 3 3 1 1
## [1555] 3 2 3 1 2 3 2 2 2 3 3 2 3 3 1 1 3 2 1 1 2 1 2 1 2 3 2 1 1 3 1 2 2 3 1 1 2
## [1592] 2 3 3 1 2 3 3 3 3 3 3 1 1 2 2 1 3 1 2 1 1 2 3 3 3 1 3 3 2 3 3 3 2 1 1 1 1
## [1629] 3 2 3 3 3 3 2 2 1 1 2 3 3 1 1 3 1 3 3 2 1 1 2 3 3 2 3 1 1 1 3 2 1 2 3 2 3
## [1666] 3 3 1 3 1 1 2 1 2 3 3 1 1 2 1 2 2 3 2 3 2 2 3 2 1 3 1 2 2 1 1 3 3 1 2 2 1
## [1703] 2 3 2 3 3 1 3 3 2 3 1 3 1 1 3 1 3 1 3 3 2 2 3 1 3 2 3 1 2 3 2 3 2 1 3 2 2
## [1740] 3 2 3 2 3 3 3 1 3 2 1 3 3 3 1 3 1 1 1 3 1 2 3 1 2 2 3 1 3 3 3 1 1 3 2 1 1
## [1777] 2 2 1 1 1 1 3 1 1 2 3 2 2 2 1 1 3 1 3 2 2 1 3 1 2 2 1 2 1 1 1 1 1 2 1 1 2
## [1814] 3 2 2 3 1 2 1 1 2 3 3 2 1 2 2 1 2 1 2 2 1 3 2 1 1 3 1 3 2 3 3 3 2 3 2 1 3
## [1851] 1 3 2 1 1 1 1 2 1 1 1 3 2 3 1 2 1 2 1 3 1 1 1 1 2 2 1 2 2 2 2 1 1 3 2 1 3
## [1888] 3 1 3 1 2 3 2 1 3 1 1 2 1 2 2 1 1 2 1 3 1 2 3 2 3 1 3 1 2 1 1 1 3 1 1 2 2
## [1925] 1 1 3 2 3 2 2 1 1 1 1 3 2 2 1 2 1 3 2 1 2 1 2 1 1 2 1 3 3 3 3 2 3 1 3 1 2
## [1962] 1 1 2 3 3 3 3 1 1 1 1 1 3 2 3 3 1 3 3 3 2 2 1 3 2 3 2 1 2 3 3 2 1 3 2 3 3
## [1999] 3 3 1 2 3 1 3 3 2 2 2 1 2 1 2 3 2 1 2 2 1 3 2 1 2 3 2 1 1 2 1 2 1 1 2 3 3
## [2036] 2 2 2 1 1 3 3 1 1 1 2 2 2 1 3 3 1 3 1 3 3 2 1 2 1 2 1 2 3 1 2 3 1 2 2 1 2
## [2073] 3 3 1 1 1 3 1 3 2 1 3 2 2 1 2 3 2 1 2 3 2 1 2 1 1 1 3 3 2 1 3 1 1 2 1 3 3
## [2110] 2 1 1 1 2 1 2 2 3 1 2 3 2 3 2 2 2 2 2 2 1 3 2 2 2 3 2 3 1 1 3 3 1 1 3 2 2
## [2147] 3 3 1 1 2 1 2 2 2 2 2 2 2 1 2 2 1 1 3 3 1 1 1 1 1 2 2 3 1 1 3 1 3 3 2 3 1
## [2184] 3 1 1 3 2 1 1 2 2 3 1 2 2 1 2 1 2 1 3 1 2 2 2 1 1 2 2 2 1 1 1 2 1 1 1 2 2
## [2221] 2 2 2 3 2 1 3 3 1 2 2 2 3 1 3 1 2 3 2 3 2 3 3 1 2 3 2 1 2 2 2 1 1 3 2 2 2
## [2258] 1 1 2 2 2 1 3 2 3 3 2 1 2 3 1 1 1 2 1 2 3 3 1 1 1 1 1 1 3 2 2 1 2 3 3 2 2
## [2295] 2 1 1 1 3 2 2 2 1 2 2 1 3 3 1 1 1 1 1 2 1 1 1 2 3 2 3 3 2 1 3 1 3 3 1 3 1
## [2332] 3 2 2 3 3 2 2 2 3 2 3 3 1 2 3 1 3 1 1 1 3 1 3 2 3 3 3 3 1 2 2 1 1 2 2 3 1
## [2369] 3 3 1 1 2 1 2 3 1 1 1 2 3 1 1 1 2 3 1 3 3 3 1 2 2 1 3 1 3 2 1 2 2 1 2 3 2
## [2406] 1 1 1 3 1 2 2 1 3 2 1 2 2 1 1 3 1 1 3 1 3 2 2 2 1 3 1 3 1 1 2 2 2 3 3 2 3
## [2443] 1 2 2 2 1 1 2 1 2 1 1 2 1 3 2 2 1 3 1 2 1 2 3 3 3 1 3 1 1 3 1 1 2 3 2 1 2
## [2480] 1 3 2 3 1 2 3 2 3 2 1 3 3 2 1 2 1 3 2 3 3 1 3 2 2 1 3 1 2 1 2 2 2 1 3 1 1
## [2517] 1 2 1 2 1 1 2 3 3 2 1 3 3 1 1 2 1 1 3 1 2 3 1 1 2 2 2 2 1 3 1 3 3 3 2 1 1
## [2554] 1 2 3 2 3 3 1 2 1 3 3 1 1 3 1 3 3 2 2 3 3 3 2 1 1 2 2 3 3 2 1 1 2 3 1 1 1
## [2591] 3 1 1 1 2 1 3 1 1 2 1 3 2 3 1 3 3 3 3 1 1 1 2 3 2 1 3 3 3 2 2 2 1 2 2 2 2
## [2628] 2 2 2 2 1 2 1 3 3 1 3 3 2 3 2 3 2 2 3 2 2 2 2 2 1 3 1 2 2 2 3 2 2 2 2 1 1
## [2665] 1 3 1 1 3 3 1 2 1 3 1 1 2 3 2 3 1 2 1 1 3 3 3 3 2 1 3 1 1 1 3 1 3 3 1 3 3
## [2702] 2 3 1 1 2 3 3 3 3 3 3 1 1 3 1 2 3 1 1 1 1 3 2 2 3 2 1 2 1 1 1 1 1 2 2 3 2
## [2739] 1 1 2 2 1 3 3 2 1 2 2 3 1 1 2 2 3 2 1 2 3 2 2 3 1 2 2 2 1 2 2 3 1 1 3 1 1
## [2776] 2 2 3 1 2 3 2 2 2 3 2 2 1 1 3 1 1 2 2 3 1 3 3 3 1 2 1 2 1 1 1 2 3 2 3 2 2
## [2813] 2 1 3 2 3 3 1 2 1 3 2 2 1 3 3 3 2 2 1 2 2 1 2 2 3 1 1 1 1 1 3 3 1 1 1 3 2
## [2850] 1 3 3 2 1 1 3 1 1 1 3 3 1 1 2 2 2 2 2 3 3 3 3 3 2 2 1 2 1 1 1 1 1 3 3 3 1
## [2887] 2 1 2 2 3 2 2 3 3 2 2 3 1 3 2 3 1 1 2 3 2 2 2 2 1 3 1 2 3 3 2 2 3 1 2 1 2
## [2924] 3 2 2 1 1 1 1 2 3 2 1 2 2 2 1 2 3 1 3 3 1 3 3 1 2 2 3 3 1 1 2 1 1 3 2 1 2
## [2961] 1 3 1 2 1 3 1 3 3 1 2 1 1 1 3 1 3 3 1 3 3 2 2 3 1 3 1 1 1 2 1 2 3 3 3 2 1
## [2998] 2 3 2 2 1 2 1 3 3 1 1 1 1 1 1 3 2 3 1 2 2 3 2 2 2 1 2 2 1 3 3 3 1 3 1 1 1
## [3035] 2 2 2 2 2 1 3 3 2 3 3 2 2 1 3 3 2 3 3 2 2 3 1 3 1 1 1 1 2 2 1 1 1 1 2 3 3
## [3072] 3 2 2 1 2 1 1 1 2 2 3 1 3 1 2 1 1 3 3 3 2 2 1 2 1 1 3 1 2 1 2 2 2 3 3 2 2
## [3109] 2 1 1 3 1 3 1 1 1 2 1 2 1 3 3 2 1 1 2 2 2 2 1 2 2 1 2 3 1 1 1 1 1 2 1 1 1
## [3146] 1 3 3 2 2 1 1 2 1 2 3 2 1 1 2 1 2 3 1 3 1 3 2 1 3 1 2 1 2 2 2 1 1 3 1 2 3
## [3183] 3 3 2 2 1 2 1 1 1 3 3 1 3 1 1 3 2 1 3 1 3 1 3 1 1 1 2 1 2 2 2 3 3 3 3 1 3
## [3220] 3 1 3 3 2 1 2 3 2 3 1 2 3 1 3 3 2 3 3 1 1 1 3 1 2 2 1 3 3 3 3 1 1 1 1 2 1
## [3257] 2 3 2 2 1 1 2 1 2 3 2 2 3 1 2 3 3 1 1 3 1 1 2 3 2 2 3 1 3 1 3 3 2 2 3 2 1
## [3294] 3 3 1 1 2 3 2 2 3 2 1 2 3 3 2 3 3 2 2 1 1 1 2 2 1 2 1 2 2 1 3 2 3 3 1 3 1
## [3331] 1 2 2 2 1 1 1 1 2 2 2 1 2 3 3 1 3 3 3 1 3 1 1 2 1 1 1 3 3 1 2 1 2 3 3 1 2
## [3368] 1 3 3 1 3 1 3 3 2 1 1 3 2 3 3 1 3 1 2 2 3 1 1 3 1 1 1 1 3 3 3 2 3 2 2 1 1
## [3405] 2 2 1 3 2 1 2 2 1 2 2 2 3 2 1 1 1 2 1 3 2 1 3 3 3 1 3 1 1 2 3 2 1 2 2 1 3
## [3442] 1 1 1 1 1 1 1 3 3 1 3 1 1 1 2 3 2 2 1 1 1 2 1 1 2 1 3 3 1 2 2 1 2 3 3 2 1
## [3479] 2 1 1 3 2 3 2 1 1 2 3 3 2 3 3 1 1 1 2 1 1 3 2 3 3 3 3 3 3 3 2 1 1 3 1 1 2
## [3516] 2 3 3 2 1 3 1 2 2 1 2 2 2 2 1 3 2 3 3 2 1 2 3 2 2 1 2 3 2 2 1 1 1 1 1 3 3
## [3553] 3 1 3 2 1 1 2 1 3 2 1 2 2 3 1 3 1 2 3 2 1 3 1 2 1 3 1 3 2 1 2 3 2 3 3 2 3
## [3590] 1 3 1 1 2 2 1 3 2 2 3 1 1 2 1 3 1 3 2 2 3 1 2 1 2 1 2 2 1 1 1 2 2 1 2 3 1
## [3627] 2 2 3 1 2 2 2 3 3 1 3 3 3 1 2 3 1 1 2 1 1 1 2 3 2 2 1 2 3 3 3 1 2 3 3 1 2
## [3664] 1 1 2 1 2 3 3 2 3 3 2 1 1 3 2 3 2 1 1 2 1 2 1 2 1 3 1 2 3 3 2 3 1 1 3 1 2
## [3701] 2 1 3 1 3 2 1 1 1 3 1 1 3 2 2 2 3 1 2 3 3 1 3 3 3 2 2 1 1 1 1 1 3 1 3 1 3
## [3738] 1 1 3 2 3 2 1 2 1 1 3 1 2 2 3 2 3 2 1 2 3 3 3 1 2 2 2 2 1 3 1 3 1 3 2 1 1
## [3775] 3 1 3 2 1 1 1 2 1 3 3 2 1 2 2 2 1 2 1 1 3 2 1 2 2 3 1 3 3 1 2 1 3 2 3 1 1
## [3812] 1 1 2 2 1 1 3 3 2 2 2 2 1 1 1 2 3 2 2 1 2 2 1 2 3 3 2 1 2 1 1 1 3 3 2 3 2
## [3849] 1 2 3 2 1 2 3 2 1 3 2 3 3 3 3 1 1 3 2 1 2 3 1 2 1 3 3 3 3 1 2 2 1 2 2 1 1
## [3886] 1 3 2 3 2 1 1 3 1 1 2 1 2 2 3 2 2 3 2 1 3 3 1 2 3 3 1 3 2 3 1 1 3 1 3 2 1
## [3923] 3 3 1 3 1 3 2 1 1 3 1 3 3 3 2 2 2 2 2 3 2 2 3 2 3 1 2 3 3 2 2 2 1 1 2 2 3
## [3960] 2 3 1 3 2 1 3 1 3 3 1 2 1 1 3 1 1 3 3 2 3 2 2 2 3 2 3 3 3 3 1 1 2 1 2 1 3
## [3997] 3 2 1 1 3 2 3 1 2 1 2 1 3 1 2 3 1 1 2 1 3 3 3 3 1 1 3 3 3 3 1 1 3 2 1 3 1
## [4034] 2 1 1 1 1 1 3 3 1 3 2 2 1 1 2 3 1 2 2 1 3 3 2 2 3 2 3 1 3 2 1 2 3 2 3 2 2
## [4071] 1 2 2 2 3 3 1 3 2 1 2 2 2 1 2 3 1 1 2 1 2 2 1 1 1 2 2 1 2 1 1 1 1 3 3 2 3
## [4108] 2 2 1 1 1 2 1 1 2 1 3 2 3 2 1 2 1 2 3 1 1 3 2 2 1 2 2 3 2 3 3 1 2 2 2 2 2
## [4145] 1 3 3 2 1 2 3 2 2 1 2 2 1 2 2 2 2 3 1 1 2 1 1 1 2 2 2 2 1 1 3 1 2 2 3 2 2
## [4182] 1 2 1 3 1 1 2 1 3 2 3 3 1 2 2 1 3 2 1 1 3 2 2 3 1 1 2 3 2 2 3 2 3 3 2 3 1
## [4219] 1 1 1 2 2 2 1 3 2 3 2 3 3 2 1 3 1 1 2 2 3 1 1 2 2 3 1 3 2 2 2 3 1 3 1 1 2
## [4256] 1 2 1 1 2 3 2 2 2 3 3 2 1 1 1 2 1 1 3 1 2 1 3 1 2 1 3 2 1 1 3 1 1 2 1 3 3
## [4293] 3 1 2 1 2 3 1 2 2 1 2 1 3 3 2 2 2 3 1 1 3 1 2 2 1 1 1 2 3 2 1 2 3 2 3 3 2
## [4330] 1 3 3 3 1 2 3 1 1 2 1 3 3 3 1 2 1 2 1 1 2 2 3 3 3 1 2 1 1 2 2 1 3 1 1 1 2
## [4367] 2 2 2 1 3 3
## 
## Within cluster sum of squares by cluster:
## [1] 3039.609 2583.731 3153.381
##  (between_SS / total_SS =  69.5 %)
## 
## Available components:
## 
## [1] "cluster"      "centers"      "totss"        "withinss"     "tot.withinss"
## [6] "betweenss"    "size"         "iter"         "ifault"
head(df_mod3)
##   rec_bins freq_bins mon_bins cluster
## 1        5         1        1       2
## 2        1         5        5       3
## 3        3         2        4       1
## 4        2         3        4       3
## 5        5         1        2       2
## 6        2         4        3       3
head(k_mod3)
## $cluster
##    [1] 2 3 1 3 2 3 2 2 2 3 3 1 3 3 2 3 2 1 2 1 3 3 1 2 1 1 2 3 1 3 3 2 1 2 3 1 1
##   [38] 1 1 3 3 3 2 2 2 1 2 3 3 3 3 2 1 1 2 3 3 2 1 1 2 3 2 1 2 1 3 3 1 3 3 3 1 1
##   [75] 2 3 3 2 1 3 1 1 2 1 3 2 3 1 2 1 3 3 3 1 2 1 1 1 1 2 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 1 1 2 1 1 1 3 3 3 2 1 2 2 2 1 2 2 1 1 2 2 1 3 3 1 3 2 1 3 3 1 1
##  [149] 3 3 1 1 2 1 3 1 3 3 1 1 1 1 2 2 1 2 1 3 3 3 1 2 3 2 3 2 2 1 3 3 1 1 2 2 1
##  [186] 3 3 1 2 1 2 3 3 3 1 1 1 1 2 2 2 2 3 1 3 3 1 3 2 2 1 2 2 1 1 3 1 1 3 2 3 1
##  [223] 1 1 3 1 3 2 2 2 2 3 3 1 1 1 3 3 3 1 2 1 2 1 2 2 3 1 3 2 2 1 2 2 2 1 3 1 1
##  [260] 1 1 3 3 2 2 1 3 2 3 2 1 3 1 3 1 1 3 3 3 3 3 2 3 1 2 1 2 1 1 1 3 1 1 1 3 3
##  [297] 2 3 3 2 3 1 3 2 1 2 1 1 3 3 1 1 1 2 3 3 1 2 3 2 2 2 2 2 2 1 1 3 3 3 3 3 2
##  [334] 3 3 2 2 2 3 3 3 3 2 2 3 2 2 1 1 1 3 1 3 1 1 1 1 2 2 2 2 2 1 1 2 1 2 1 2 2
##  [371] 1 2 2 2 2 2 1 2 1 1 1 3 1 1 2 3 2 1 2 2 3 2 3 3 3 3 1 3 1 2 1 1 2 2 2 3 2
##  [408] 3 2 1 2 3 2 3 3 2 1 2 2 2 3 3 1 1 2 1 1 1 1 1 2 1 2 1 1 2 3 2 1 3 2 3 3 1
##  [445] 3 2 3 2 1 1 3 2 1 1 1 3 2 1 3 3 3 1 3 1 3 3 2 2 1 2 3 3 3 1 1 1 1 3 2 3 1
##  [482] 3 3 1 1 2 3 3 2 2 2 2 1 2 1 1 1 2 3 1 1 1 1 2 1 2 2 3 2 2 3 2 2 2 2 3 3 3
##  [519] 3 1 1 3 3 1 1 2 1 1 3 1 2 1 1 2 1 1 2 2 2 1 3 3 1 3 2 1 1 2 2 2 2 1 2 1 2
##  [556] 1 3 2 2 2 3 3 1 2 3 3 1 2 3 3 1 1 3 1 2 3 3 2 2 3 1 1 2 1 2 1 3 3 3 2 1 1
##  [593] 2 2 2 3 3 2 2 1 2 2 3 2 3 3 1 3 2 3 1 2 1 1 1 3 3 2 1 2 1 3 2 3 1 2 2 1 2
##  [630] 1 3 1 1 1 1 3 1 2 3 1 3 3 2 1 2 1 1 2 1 2 3 3 3 1 1 1 3 3 2 1 3 1 2 2 2 1
##  [667] 2 2 3 3 2 2 1 2 3 3 1 2 1 1 2 2 2 2 2 1 3 1 2 2 2 1 1 1 1 1 2 2 3 3 3 3 3
##  [704] 3 2 1 1 2 1 1 1 2 2 1 2 2 3 2 1 2 2 2 3 1 2 2 2 2 2 3 2 1 3 1 1 1 1 3 3 1
##  [741] 3 3 1 1 1 3 1 3 2 1 2 1 3 1 2 2 3 2 2 3 2 1 2 1 1 1 1 1 2 1 2 2 1 3 1 1 3
##  [778] 1 2 2 2 1 3 1 2 1 3 2 3 2 2 1 1 2 3 2 1 1 2 2 1 1 1 3 1 2 2 1 1 3 2 2 3 3
##  [815] 2 3 1 1 1 1 1 1 3 1 3 2 1 1 3 1 3 3 2 2 1 3 3 1 1 2 1 2 3 3 2 3 1 2 2 2 1
##  [852] 2 3 2 2 2 2 1 1 3 2 1 2 2 2 3 1 2 1 1 2 1 2 1 3 2 3 2 1 3 2 2 2 1 1 3 1 1
##  [889] 3 3 1 3 1 1 3 1 2 1 2 3 3 1 1 1 1 3 1 2 3 3 1 3 1 2 3 1 2 1 3 2 1 2 3 2 1
##  [926] 1 3 3 1 2 2 2 1 3 1 3 1 1 3 1 3 1 3 2 3 1 1 1 3 3 1 3 2 1 2 2 1 2 3 3 3 2
##  [963] 3 3 1 1 3 1 1 2 1 3 2 3 2 3 1 1 3 2 2 1 3 3 1 2 2 2 3 1 1 2 1 2 2 3 1 2 2
## [1000] 3 2 1 2 1 2 3 3 1 2 3 2 3 1 2 2 2 3 1 2 2 3 2 3 2 1 2 1 3 2 3 1 1 1 2 2 1
## [1037] 3 3 2 1 2 1 3 1 2 2 2 2 1 2 2 2 2 3 3 3 1 1 1 2 1 3 3 3 3 3 1 3 2 1 2 3 3
## [1074] 2 1 1 1 2 3 2 2 1 3 2 3 1 2 2 3 2 1 2 1 1 1 3 1 1 2 2 1 1 3 2 1 1 2 3 1 2
## [1111] 1 2 3 2 3 1 1 1 2 3 3 3 1 3 2 2 2 1 3 2 1 2 1 3 3 3 3 2 2 3 2 2 1 3 3 1 3
## [1148] 1 2 2 2 2 2 3 1 2 1 3 1 2 1 2 3 1 3 3 1 1 1 1 2 1 3 1 1 1 1 2 1 1 2 2 2 2
## [1185] 2 1 1 1 3 1 2 2 3 1 2 3 3 1 2 3 2 1 1 1 2 2 3 3 2 2 1 3 2 1 1 2 3 3 1 3 1
## [1222] 3 1 2 1 1 3 3 1 3 2 3 2 3 3 2 2 2 2 1 1 3 1 1 2 2 1 2 2 1 3 3 3 1 1 2 2 1
## [1259] 1 3 2 3 2 2 1 2 3 1 3 1 2 2 2 3 3 2 3 3 1 2 1 2 3 1 1 2 1 2 2 1 3 2 3 3 1
## [1296] 3 2 2 3 3 3 1 3 2 1 1 2 1 3 1 1 3 1 3 1 2 1 2 2 3 1 3 1 2 1 1 2 3 2 3 1 1
## [1333] 1 1 2 2 1 3 1 2 2 1 1 2 2 3 1 1 3 3 2 3 1 2 1 2 1 1 3 2 1 3 3 3 1 2 3 3 3
## [1370] 1 3 2 2 1 2 1 1 1 2 2 3 3 3 1 2 1 3 3 3 1 1 2 3 2 2 3 3 3 1 2 3 1 3 3 1 2
## [1407] 2 3 1 2 2 3 3 2 2 2 3 3 2 3 3 2 1 3 2 2 2 2 2 1 1 1 3 2 3 1 3 3 1 2 1 3 3
## [1444] 3 1 1 1 3 3 1 2 2 3 1 3 3 2 1 2 3 1 2 3 2 2 2 3 2 1 1 3 1 3 2 2 2 3 1 2 1
## [1481] 2 2 1 2 2 2 2 1 2 1 1 1 3 1 3 3 2 2 2 2 2 1 1 3 1 1 2 3 3 1 3 2 3 1 3 2 3
## [1518] 2 3 2 3 3 3 3 2 1 2 3 3 1 3 3 1 1 3 2 1 3 1 3 2 3 1 2 2 2 2 3 1 1 3 3 1 1
## [1555] 3 2 3 1 2 3 2 2 2 3 3 2 3 3 1 1 3 2 1 1 2 1 2 1 2 3 2 1 1 3 1 2 2 3 1 1 2
## [1592] 2 3 3 1 2 3 3 3 3 3 3 1 1 2 2 1 3 1 2 1 1 2 3 3 3 1 3 3 2 3 3 3 2 1 1 1 1
## [1629] 3 2 3 3 3 3 2 2 1 1 2 3 3 1 1 3 1 3 3 2 1 1 2 3 3 2 3 1 1 1 3 2 1 2 3 2 3
## [1666] 3 3 1 3 1 1 2 1 2 3 3 1 1 2 1 2 2 3 2 3 2 2 3 2 1 3 1 2 2 1 1 3 3 1 2 2 1
## [1703] 2 3 2 3 3 1 3 3 2 3 1 3 1 1 3 1 3 1 3 3 2 2 3 1 3 2 3 1 2 3 2 3 2 1 3 2 2
## [1740] 3 2 3 2 3 3 3 1 3 2 1 3 3 3 1 3 1 1 1 3 1 2 3 1 2 2 3 1 3 3 3 1 1 3 2 1 1
## [1777] 2 2 1 1 1 1 3 1 1 2 3 2 2 2 1 1 3 1 3 2 2 1 3 1 2 2 1 2 1 1 1 1 1 2 1 1 2
## [1814] 3 2 2 3 1 2 1 1 2 3 3 2 1 2 2 1 2 1 2 2 1 3 2 1 1 3 1 3 2 3 3 3 2 3 2 1 3
## [1851] 1 3 2 1 1 1 1 2 1 1 1 3 2 3 1 2 1 2 1 3 1 1 1 1 2 2 1 2 2 2 2 1 1 3 2 1 3
## [1888] 3 1 3 1 2 3 2 1 3 1 1 2 1 2 2 1 1 2 1 3 1 2 3 2 3 1 3 1 2 1 1 1 3 1 1 2 2
## [1925] 1 1 3 2 3 2 2 1 1 1 1 3 2 2 1 2 1 3 2 1 2 1 2 1 1 2 1 3 3 3 3 2 3 1 3 1 2
## [1962] 1 1 2 3 3 3 3 1 1 1 1 1 3 2 3 3 1 3 3 3 2 2 1 3 2 3 2 1 2 3 3 2 1 3 2 3 3
## [1999] 3 3 1 2 3 1 3 3 2 2 2 1 2 1 2 3 2 1 2 2 1 3 2 1 2 3 2 1 1 2 1 2 1 1 2 3 3
## [2036] 2 2 2 1 1 3 3 1 1 1 2 2 2 1 3 3 1 3 1 3 3 2 1 2 1 2 1 2 3 1 2 3 1 2 2 1 2
## [2073] 3 3 1 1 1 3 1 3 2 1 3 2 2 1 2 3 2 1 2 3 2 1 2 1 1 1 3 3 2 1 3 1 1 2 1 3 3
## [2110] 2 1 1 1 2 1 2 2 3 1 2 3 2 3 2 2 2 2 2 2 1 3 2 2 2 3 2 3 1 1 3 3 1 1 3 2 2
## [2147] 3 3 1 1 2 1 2 2 2 2 2 2 2 1 2 2 1 1 3 3 1 1 1 1 1 2 2 3 1 1 3 1 3 3 2 3 1
## [2184] 3 1 1 3 2 1 1 2 2 3 1 2 2 1 2 1 2 1 3 1 2 2 2 1 1 2 2 2 1 1 1 2 1 1 1 2 2
## [2221] 2 2 2 3 2 1 3 3 1 2 2 2 3 1 3 1 2 3 2 3 2 3 3 1 2 3 2 1 2 2 2 1 1 3 2 2 2
## [2258] 1 1 2 2 2 1 3 2 3 3 2 1 2 3 1 1 1 2 1 2 3 3 1 1 1 1 1 1 3 2 2 1 2 3 3 2 2
## [2295] 2 1 1 1 3 2 2 2 1 2 2 1 3 3 1 1 1 1 1 2 1 1 1 2 3 2 3 3 2 1 3 1 3 3 1 3 1
## [2332] 3 2 2 3 3 2 2 2 3 2 3 3 1 2 3 1 3 1 1 1 3 1 3 2 3 3 3 3 1 2 2 1 1 2 2 3 1
## [2369] 3 3 1 1 2 1 2 3 1 1 1 2 3 1 1 1 2 3 1 3 3 3 1 2 2 1 3 1 3 2 1 2 2 1 2 3 2
## [2406] 1 1 1 3 1 2 2 1 3 2 1 2 2 1 1 3 1 1 3 1 3 2 2 2 1 3 1 3 1 1 2 2 2 3 3 2 3
## [2443] 1 2 2 2 1 1 2 1 2 1 1 2 1 3 2 2 1 3 1 2 1 2 3 3 3 1 3 1 1 3 1 1 2 3 2 1 2
## [2480] 1 3 2 3 1 2 3 2 3 2 1 3 3 2 1 2 1 3 2 3 3 1 3 2 2 1 3 1 2 1 2 2 2 1 3 1 1
## [2517] 1 2 1 2 1 1 2 3 3 2 1 3 3 1 1 2 1 1 3 1 2 3 1 1 2 2 2 2 1 3 1 3 3 3 2 1 1
## [2554] 1 2 3 2 3 3 1 2 1 3 3 1 1 3 1 3 3 2 2 3 3 3 2 1 1 2 2 3 3 2 1 1 2 3 1 1 1
## [2591] 3 1 1 1 2 1 3 1 1 2 1 3 2 3 1 3 3 3 3 1 1 1 2 3 2 1 3 3 3 2 2 2 1 2 2 2 2
## [2628] 2 2 2 2 1 2 1 3 3 1 3 3 2 3 2 3 2 2 3 2 2 2 2 2 1 3 1 2 2 2 3 2 2 2 2 1 1
## [2665] 1 3 1 1 3 3 1 2 1 3 1 1 2 3 2 3 1 2 1 1 3 3 3 3 2 1 3 1 1 1 3 1 3 3 1 3 3
## [2702] 2 3 1 1 2 3 3 3 3 3 3 1 1 3 1 2 3 1 1 1 1 3 2 2 3 2 1 2 1 1 1 1 1 2 2 3 2
## [2739] 1 1 2 2 1 3 3 2 1 2 2 3 1 1 2 2 3 2 1 2 3 2 2 3 1 2 2 2 1 2 2 3 1 1 3 1 1
## [2776] 2 2 3 1 2 3 2 2 2 3 2 2 1 1 3 1 1 2 2 3 1 3 3 3 1 2 1 2 1 1 1 2 3 2 3 2 2
## [2813] 2 1 3 2 3 3 1 2 1 3 2 2 1 3 3 3 2 2 1 2 2 1 2 2 3 1 1 1 1 1 3 3 1 1 1 3 2
## [2850] 1 3 3 2 1 1 3 1 1 1 3 3 1 1 2 2 2 2 2 3 3 3 3 3 2 2 1 2 1 1 1 1 1 3 3 3 1
## [2887] 2 1 2 2 3 2 2 3 3 2 2 3 1 3 2 3 1 1 2 3 2 2 2 2 1 3 1 2 3 3 2 2 3 1 2 1 2
## [2924] 3 2 2 1 1 1 1 2 3 2 1 2 2 2 1 2 3 1 3 3 1 3 3 1 2 2 3 3 1 1 2 1 1 3 2 1 2
## [2961] 1 3 1 2 1 3 1 3 3 1 2 1 1 1 3 1 3 3 1 3 3 2 2 3 1 3 1 1 1 2 1 2 3 3 3 2 1
## [2998] 2 3 2 2 1 2 1 3 3 1 1 1 1 1 1 3 2 3 1 2 2 3 2 2 2 1 2 2 1 3 3 3 1 3 1 1 1
## [3035] 2 2 2 2 2 1 3 3 2 3 3 2 2 1 3 3 2 3 3 2 2 3 1 3 1 1 1 1 2 2 1 1 1 1 2 3 3
## [3072] 3 2 2 1 2 1 1 1 2 2 3 1 3 1 2 1 1 3 3 3 2 2 1 2 1 1 3 1 2 1 2 2 2 3 3 2 2
## [3109] 2 1 1 3 1 3 1 1 1 2 1 2 1 3 3 2 1 1 2 2 2 2 1 2 2 1 2 3 1 1 1 1 1 2 1 1 1
## [3146] 1 3 3 2 2 1 1 2 1 2 3 2 1 1 2 1 2 3 1 3 1 3 2 1 3 1 2 1 2 2 2 1 1 3 1 2 3
## [3183] 3 3 2 2 1 2 1 1 1 3 3 1 3 1 1 3 2 1 3 1 3 1 3 1 1 1 2 1 2 2 2 3 3 3 3 1 3
## [3220] 3 1 3 3 2 1 2 3 2 3 1 2 3 1 3 3 2 3 3 1 1 1 3 1 2 2 1 3 3 3 3 1 1 1 1 2 1
## [3257] 2 3 2 2 1 1 2 1 2 3 2 2 3 1 2 3 3 1 1 3 1 1 2 3 2 2 3 1 3 1 3 3 2 2 3 2 1
## [3294] 3 3 1 1 2 3 2 2 3 2 1 2 3 3 2 3 3 2 2 1 1 1 2 2 1 2 1 2 2 1 3 2 3 3 1 3 1
## [3331] 1 2 2 2 1 1 1 1 2 2 2 1 2 3 3 1 3 3 3 1 3 1 1 2 1 1 1 3 3 1 2 1 2 3 3 1 2
## [3368] 1 3 3 1 3 1 3 3 2 1 1 3 2 3 3 1 3 1 2 2 3 1 1 3 1 1 1 1 3 3 3 2 3 2 2 1 1
## [3405] 2 2 1 3 2 1 2 2 1 2 2 2 3 2 1 1 1 2 1 3 2 1 3 3 3 1 3 1 1 2 3 2 1 2 2 1 3
## [3442] 1 1 1 1 1 1 1 3 3 1 3 1 1 1 2 3 2 2 1 1 1 2 1 1 2 1 3 3 1 2 2 1 2 3 3 2 1
## [3479] 2 1 1 3 2 3 2 1 1 2 3 3 2 3 3 1 1 1 2 1 1 3 2 3 3 3 3 3 3 3 2 1 1 3 1 1 2
## [3516] 2 3 3 2 1 3 1 2 2 1 2 2 2 2 1 3 2 3 3 2 1 2 3 2 2 1 2 3 2 2 1 1 1 1 1 3 3
## [3553] 3 1 3 2 1 1 2 1 3 2 1 2 2 3 1 3 1 2 3 2 1 3 1 2 1 3 1 3 2 1 2 3 2 3 3 2 3
## [3590] 1 3 1 1 2 2 1 3 2 2 3 1 1 2 1 3 1 3 2 2 3 1 2 1 2 1 2 2 1 1 1 2 2 1 2 3 1
## [3627] 2 2 3 1 2 2 2 3 3 1 3 3 3 1 2 3 1 1 2 1 1 1 2 3 2 2 1 2 3 3 3 1 2 3 3 1 2
## [3664] 1 1 2 1 2 3 3 2 3 3 2 1 1 3 2 3 2 1 1 2 1 2 1 2 1 3 1 2 3 3 2 3 1 1 3 1 2
## [3701] 2 1 3 1 3 2 1 1 1 3 1 1 3 2 2 2 3 1 2 3 3 1 3 3 3 2 2 1 1 1 1 1 3 1 3 1 3
## [3738] 1 1 3 2 3 2 1 2 1 1 3 1 2 2 3 2 3 2 1 2 3 3 3 1 2 2 2 2 1 3 1 3 1 3 2 1 1
## [3775] 3 1 3 2 1 1 1 2 1 3 3 2 1 2 2 2 1 2 1 1 3 2 1 2 2 3 1 3 3 1 2 1 3 2 3 1 1
## [3812] 1 1 2 2 1 1 3 3 2 2 2 2 1 1 1 2 3 2 2 1 2 2 1 2 3 3 2 1 2 1 1 1 3 3 2 3 2
## [3849] 1 2 3 2 1 2 3 2 1 3 2 3 3 3 3 1 1 3 2 1 2 3 1 2 1 3 3 3 3 1 2 2 1 2 2 1 1
## [3886] 1 3 2 3 2 1 1 3 1 1 2 1 2 2 3 2 2 3 2 1 3 3 1 2 3 3 1 3 2 3 1 1 3 1 3 2 1
## [3923] 3 3 1 3 1 3 2 1 1 3 1 3 3 3 2 2 2 2 2 3 2 2 3 2 3 1 2 3 3 2 2 2 1 1 2 2 3
## [3960] 2 3 1 3 2 1 3 1 3 3 1 2 1 1 3 1 1 3 3 2 3 2 2 2 3 2 3 3 3 3 1 1 2 1 2 1 3
## [3997] 3 2 1 1 3 2 3 1 2 1 2 1 3 1 2 3 1 1 2 1 3 3 3 3 1 1 3 3 3 3 1 1 3 2 1 3 1
## [4034] 2 1 1 1 1 1 3 3 1 3 2 2 1 1 2 3 1 2 2 1 3 3 2 2 3 2 3 1 3 2 1 2 3 2 3 2 2
## [4071] 1 2 2 2 3 3 1 3 2 1 2 2 2 1 2 3 1 1 2 1 2 2 1 1 1 2 2 1 2 1 1 1 1 3 3 2 3
## [4108] 2 2 1 1 1 2 1 1 2 1 3 2 3 2 1 2 1 2 3 1 1 3 2 2 1 2 2 3 2 3 3 1 2 2 2 2 2
## [4145] 1 3 3 2 1 2 3 2 2 1 2 2 1 2 2 2 2 3 1 1 2 1 1 1 2 2 2 2 1 1 3 1 2 2 3 2 2
## [4182] 1 2 1 3 1 1 2 1 3 2 3 3 1 2 2 1 3 2 1 1 3 2 2 3 1 1 2 3 2 2 3 2 3 3 2 3 1
## [4219] 1 1 1 2 2 2 1 3 2 3 2 3 3 2 1 3 1 1 2 2 3 1 1 2 2 3 1 3 2 2 2 3 1 3 1 1 2
## [4256] 1 2 1 1 2 3 2 2 2 3 3 2 1 1 1 2 1 1 3 1 2 1 3 1 2 1 3 2 1 1 3 1 1 2 1 3 3
## [4293] 3 1 2 1 2 3 1 2 2 1 2 1 3 3 2 2 2 3 1 1 3 1 2 2 1 1 1 2 3 2 1 2 3 2 3 3 2
## [4330] 1 3 3 3 1 2 3 1 1 2 1 3 3 3 1 2 1 2 1 1 2 2 3 3 3 1 2 1 1 2 2 1 3 1 1 1 2
## [4367] 2 2 2 1 3 3
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 1.992415  2.171302 2.221871
## 2 4.636426  1.671896 1.720327
## 3 1.796073  4.669184 4.391239
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 3039.609 2583.731 3153.381
## 
## $tot.withinss
## [1] 8776.721
## 
## $betweenss
## [1] 19973.66

Accuracy of the cluster with number of clusters 3 =0.6947268

#making clusters by k=4

head(rfm_bin)
##   custid mon_bins freq_bins rec_bins tot_score
## 1  12346        1         1        5  2.333333
## 2  12347        5         5        1  3.666667
## 3  12348        4         2        3  3.000000
## 4  12349        4         3        2  3.000000
## 5  12350        2         1        5  2.666667
## 6  12352        3         4        2  3.000000
k_mod4=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=4)

df_mod4=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod4$cluster)
df_mod4$cluster=as.factor(df_mod4$cluster)

head(df_mod4,20)
##    rec_bins freq_bins mon_bins cluster
## 1         5         1        1       1
## 2         1         5        5       2
## 3         3         2        4       3
## 4         2         3        4       3
## 5         5         1        2       1
## 6         2         4        3       3
## 7         5         1        1       1
## 8         5         3        3       1
## 9         5         1        2       1
## 10        2         3        5       3
## 11        2         5        5       2
## 12        1         2        3       3
## 13        1         5        5       2
## 14        3         5        5       2
## 15        5         1        1       1
## 16        1         5        5       2
## 17        4         2        2       1
## 18        1         3        3       3
## 19        5         2        2       1
## 20        1         1        1       4
head(k_mod4)
## $cluster
##    [1] 1 2 3 3 1 3 1 1 1 3 2 3 2 2 1 2 1 3 1 4 2 3 3 1 3 4 1 2 3 2 3 1 4 1 2 4 3
##   [38] 3 3 2 2 3 1 1 1 4 1 2 3 2 2 1 3 3 1 2 2 1 4 3 1 2 1 3 1 3 2 2 4 2 2 2 3 3
##   [75] 1 2 2 1 4 2 4 3 1 4 2 1 2 4 1 4 3 2 3 3 1 3 3 3 3 1 2 2 2 2 3 2 2 3 4 2 2
##  [112] 3 2 3 1 2 4 4 1 3 4 4 3 2 2 1 4 1 1 1 3 1 1 4 4 1 1 3 2 2 4 2 1 4 2 2 3 4
##  [149] 2 3 4 4 1 3 2 4 2 2 3 4 3 3 1 1 3 1 4 2 2 3 4 1 2 1 2 1 1 4 2 2 4 3 1 1 3
##  [186] 2 2 4 1 4 1 2 2 2 4 4 4 4 1 1 1 1 2 4 2 2 3 3 1 4 4 4 1 3 3 2 3 4 2 1 2 3
##  [223] 4 4 2 3 2 1 1 1 1 2 2 3 3 4 2 2 2 3 1 3 1 3 3 1 3 3 2 1 1 4 1 1 1 4 2 3 3
##  [260] 4 4 2 3 1 1 4 2 1 2 1 4 3 3 2 3 3 2 2 2 2 2 1 2 3 1 3 1 3 4 3 2 3 4 4 3 2
##  [297] 1 2 2 1 2 3 2 1 3 1 4 4 2 2 3 3 3 1 2 2 3 1 2 1 1 1 1 1 1 3 4 3 2 2 2 2 1
##  [334] 3 2 1 1 4 2 2 3 3 1 1 2 1 1 3 3 3 2 3 2 3 3 4 4 4 1 1 1 1 3 4 1 3 1 4 1 1
##  [371] 4 1 1 1 1 1 3 1 3 3 4 3 4 3 1 3 1 4 1 1 2 1 2 2 2 2 3 2 3 1 3 3 1 1 3 2 1
##  [408] 2 1 4 1 3 1 2 1 1 4 1 1 1 3 2 3 4 1 4 3 4 3 3 1 3 1 4 4 1 2 1 3 3 4 2 3 3
##  [445] 3 1 2 1 3 4 2 1 4 3 3 3 1 4 2 2 2 3 2 4 3 2 1 1 4 1 2 2 2 3 3 3 4 2 1 2 4
##  [482] 2 2 4 3 1 2 2 1 1 1 1 4 1 4 3 4 1 3 4 4 4 3 4 3 1 1 2 1 1 2 1 4 1 1 2 2 2
##  [519] 2 3 4 2 2 3 3 3 3 4 3 3 1 4 3 1 3 3 1 1 1 4 2 2 4 2 1 3 4 1 1 4 1 3 1 3 4
##  [556] 4 2 1 1 1 2 2 4 1 2 3 4 1 2 2 4 4 2 3 4 2 2 1 1 2 4 3 1 3 1 3 2 2 2 1 3 3
##  [593] 1 1 1 2 2 4 1 3 1 1 2 1 2 2 3 2 1 2 4 1 4 4 4 2 3 1 4 1 3 3 1 2 4 1 3 3 1
##  [630] 3 2 4 4 3 3 2 3 4 2 4 2 2 1 3 1 4 4 1 4 1 2 2 2 3 3 4 2 2 1 3 2 3 1 1 1 3
##  [667] 1 1 2 3 1 1 4 1 2 2 3 1 3 3 1 1 1 1 1 4 2 4 1 1 1 4 4 3 4 4 1 1 2 3 2 2 2
##  [704] 2 1 4 4 1 4 4 3 4 1 3 4 1 2 1 4 1 1 1 3 4 1 1 1 1 1 3 1 3 2 3 4 3 3 3 2 4
##  [741] 2 2 4 4 3 3 4 2 1 3 1 4 2 3 1 1 2 1 1 2 1 4 4 4 3 4 4 3 1 3 1 1 4 2 3 4 2
##  [778] 4 1 1 1 4 2 3 1 3 2 1 2 1 1 3 4 1 2 1 3 3 1 1 4 4 4 2 3 1 1 3 4 2 4 1 2 2
##  [815] 3 2 4 4 3 3 3 4 2 4 2 1 4 3 2 4 3 2 1 1 3 3 2 4 3 1 3 1 3 2 1 2 4 1 1 1 3
##  [852] 1 2 1 4 1 1 3 4 2 1 3 1 1 1 3 4 1 3 3 1 4 4 4 2 1 2 1 3 2 1 1 4 3 3 2 3 4
##  [889] 2 2 4 2 3 4 2 4 1 4 1 2 2 3 4 4 3 2 3 1 2 2 4 2 4 1 3 3 1 4 2 1 3 1 2 1 4
##  [926] 3 2 3 4 1 1 1 4 2 4 3 3 4 2 4 2 4 2 1 3 4 4 4 3 2 3 2 1 3 1 1 3 1 2 3 3 3
##  [963] 2 2 3 3 3 4 3 1 4 2 1 3 1 2 4 3 2 1 1 4 2 1 3 1 4 1 2 4 4 1 3 1 1 2 3 1 1
## [1000] 3 1 4 4 3 1 2 3 4 1 2 1 2 3 1 1 1 2 4 1 1 1 1 2 1 3 1 4 3 1 2 3 4 3 1 1 4
## [1037] 2 2 1 4 1 3 2 3 1 1 1 1 3 1 1 1 1 2 2 2 3 4 3 1 3 2 2 2 2 2 4 2 1 3 1 2 3
## [1074] 1 4 3 4 4 2 1 1 4 3 1 2 4 4 1 3 1 3 1 4 3 3 2 4 4 1 1 3 3 3 1 3 4 1 3 4 1
## [1111] 3 1 2 1 2 4 4 3 1 3 3 3 3 2 1 4 1 3 2 1 4 4 3 3 2 2 2 1 1 2 4 4 3 2 2 3 2
## [1148] 3 1 4 1 1 1 2 4 1 4 2 4 1 4 1 2 4 2 2 4 4 3 4 1 4 2 3 4 4 4 1 4 3 1 1 1 1
## [1185] 1 4 3 3 3 4 4 1 2 3 1 2 3 4 1 2 1 3 4 4 1 1 2 2 4 1 4 2 1 4 3 4 2 2 4 2 4
## [1222] 2 3 1 3 4 2 2 3 2 1 3 1 2 3 1 1 1 1 4 3 2 3 4 1 1 4 1 4 4 2 2 2 3 3 1 1 3
## [1259] 4 2 1 2 1 1 3 1 2 3 2 4 1 4 1 2 2 1 2 2 3 1 3 1 2 4 3 1 4 1 1 4 1 1 2 2 4
## [1296] 2 4 1 2 2 2 4 2 1 3 3 1 3 2 4 4 2 4 2 3 1 3 1 1 2 4 2 4 1 3 3 1 2 1 2 3 4
## [1333] 3 3 1 1 3 2 4 1 1 3 3 1 1 2 3 4 2 1 1 3 3 1 3 1 4 4 2 1 3 2 2 2 4 1 3 2 2
## [1370] 3 2 1 1 3 1 3 4 4 1 1 3 2 2 4 1 3 2 3 2 4 4 1 2 1 1 2 3 2 3 1 2 3 2 3 4 1
## [1407] 1 2 3 1 1 2 2 1 1 1 2 3 1 2 2 1 3 2 1 1 1 1 1 4 4 3 2 1 2 4 3 2 4 1 3 2 2
## [1444] 2 3 4 3 2 2 4 1 1 2 3 2 2 1 3 1 2 4 1 2 1 1 1 2 1 3 4 2 3 3 1 1 1 2 4 1 4
## [1481] 1 1 4 1 1 1 1 4 1 3 4 3 2 4 3 2 1 1 1 1 1 3 4 2 3 4 1 2 2 3 2 1 2 3 2 1 2
## [1518] 1 2 1 3 2 3 2 1 3 1 3 2 4 2 2 4 3 2 1 4 2 4 2 1 2 4 1 1 1 1 3 3 3 3 2 3 4
## [1555] 2 1 2 4 1 2 1 1 1 2 2 1 1 3 3 3 2 4 4 3 1 4 1 4 1 2 1 4 4 2 3 1 1 2 4 4 1
## [1592] 1 2 2 4 4 2 2 2 2 2 3 4 3 1 1 3 2 4 4 4 4 1 2 2 2 4 3 2 1 3 2 2 1 4 4 4 3
## [1629] 2 1 2 2 2 2 1 1 3 4 1 2 2 4 4 3 3 2 2 1 3 4 1 2 1 1 2 4 4 4 2 1 4 1 2 1 2
## [1666] 2 2 3 2 3 4 1 4 1 2 2 3 4 1 4 1 1 2 1 2 4 1 2 1 3 2 3 1 1 4 4 2 2 4 4 1 3
## [1703] 1 2 1 2 3 4 2 3 1 2 4 2 4 4 2 3 2 4 2 1 1 1 3 3 3 1 2 4 1 2 1 2 1 3 3 1 1
## [1740] 2 1 2 1 2 2 2 4 2 1 3 2 2 2 3 2 4 3 3 2 3 1 2 3 1 1 2 3 2 2 2 4 3 3 1 3 3
## [1777] 1 1 3 4 4 4 2 3 4 1 2 1 4 1 4 4 2 4 2 1 1 3 2 4 1 1 4 1 4 4 3 4 3 4 4 3 1
## [1814] 2 4 4 2 4 1 4 3 4 2 2 1 3 1 1 3 4 4 1 1 3 2 1 3 4 3 4 2 1 2 2 2 1 2 1 4 2
## [1851] 4 2 1 3 3 3 4 4 3 4 4 2 1 2 3 1 3 1 3 2 3 4 4 3 1 1 3 1 1 1 1 3 3 2 1 3 2
## [1888] 3 4 2 3 1 2 4 4 2 3 3 4 3 1 1 3 3 1 4 2 3 1 3 1 2 3 2 4 4 3 4 4 2 4 3 1 1
## [1925] 3 4 2 1 2 1 1 4 4 4 3 2 1 1 4 4 3 2 1 4 1 4 1 4 4 1 3 2 1 2 3 1 2 4 3 4 1
## [1962] 4 4 1 2 2 2 2 3 3 3 3 4 2 1 2 2 4 3 2 2 1 1 4 2 1 2 1 3 1 3 2 1 3 2 1 2 2
## [1999] 2 2 3 1 2 3 3 2 1 1 1 3 1 3 1 2 1 4 1 1 3 2 1 4 1 2 1 4 4 1 4 1 4 3 1 2 3
## [2036] 1 1 1 3 3 2 2 4 3 3 1 1 1 4 3 2 4 2 4 2 3 1 3 1 3 1 3 1 3 4 1 2 3 1 1 4 1
## [2073] 2 2 4 4 3 2 4 2 1 4 2 1 1 4 1 2 1 4 1 2 1 3 1 3 4 4 3 2 1 4 2 3 3 1 4 3 2
## [2110] 1 3 4 3 1 3 1 1 2 3 4 2 1 2 1 1 1 1 1 1 3 2 1 1 1 2 1 3 3 3 3 2 4 4 3 1 1
## [2147] 2 2 3 3 1 3 1 1 1 3 1 1 1 4 1 1 3 4 3 2 3 3 4 4 4 1 1 2 4 4 3 3 2 2 1 2 4
## [2184] 2 3 4 2 1 3 3 1 1 2 3 1 1 4 1 4 1 4 2 3 1 1 4 3 4 1 1 1 4 3 3 1 4 4 4 1 1
## [2221] 4 1 1 2 1 4 2 2 4 1 1 1 2 3 2 4 1 2 3 2 1 2 2 3 1 2 1 4 1 1 1 3 4 3 1 1 1
## [2258] 3 3 1 1 1 3 2 1 2 3 1 3 1 2 4 4 3 1 4 1 2 2 4 3 4 3 3 4 2 1 1 3 1 2 2 1 1
## [2295] 1 3 4 3 2 1 1 1 4 1 1 4 1 2 3 3 4 4 3 1 4 4 3 1 2 1 2 3 1 3 2 3 2 2 4 2 3
## [2332] 2 1 4 2 2 1 1 1 2 1 2 2 4 1 2 4 2 3 4 4 2 4 2 1 2 2 2 2 3 1 1 4 4 1 1 2 4
## [2369] 2 2 3 4 1 3 1 2 4 4 3 1 2 4 4 3 1 2 3 2 2 1 3 1 1 3 2 3 2 1 4 1 1 4 4 2 1
## [2406] 4 4 3 2 3 4 4 3 3 1 3 1 4 3 4 2 3 4 2 3 2 1 1 1 3 2 3 2 4 3 4 1 1 2 2 1 1
## [2443] 3 1 1 1 4 4 1 3 1 3 4 1 4 3 1 1 4 2 4 1 3 1 3 2 2 4 2 3 4 2 3 3 1 2 1 4 1
## [2480] 4 3 1 2 4 1 2 1 2 1 3 2 2 1 3 1 4 1 1 2 2 3 3 1 1 4 2 4 1 3 1 1 1 3 2 4 4
## [2517] 3 4 3 1 3 4 1 2 2 1 4 2 3 3 4 1 4 3 2 4 1 2 4 4 1 1 1 1 4 3 4 3 2 2 1 4 3
## [2554] 4 1 2 3 3 2 3 1 4 2 2 3 3 2 3 2 2 3 1 3 3 2 1 3 3 1 1 3 2 1 4 3 1 2 3 4 4
## [2591] 2 3 4 3 1 4 2 4 4 1 4 2 1 2 4 2 2 2 2 4 3 3 1 2 1 3 2 2 2 1 1 1 3 1 4 4 1
## [2628] 1 1 1 1 3 1 3 2 3 4 2 2 1 2 1 2 1 1 2 1 1 1 1 1 4 2 3 1 4 1 3 1 1 1 1 3 3
## [2665] 4 2 3 3 2 2 4 4 4 2 3 4 1 3 1 2 4 1 3 3 3 2 2 2 1 4 2 4 3 4 2 4 2 2 3 2 2
## [2702] 1 2 4 3 1 2 3 2 2 2 2 4 4 2 3 1 3 4 4 4 4 2 1 1 2 1 3 1 4 3 3 3 3 1 4 2 1
## [2739] 4 3 1 1 3 2 2 1 3 1 1 3 3 4 1 1 2 1 3 4 2 1 1 2 3 1 1 1 3 1 1 3 3 3 3 3 4
## [2776] 1 4 3 3 1 2 1 1 1 2 1 1 4 3 2 3 4 1 1 2 3 3 3 2 4 1 3 1 4 3 4 1 2 1 2 1 1
## [2813] 1 4 2 1 3 2 4 1 3 2 1 1 3 2 3 2 4 1 3 1 1 4 1 4 2 4 3 4 3 4 2 2 3 4 4 2 1
## [2850] 4 2 2 1 4 3 3 3 4 3 3 2 4 3 4 1 4 1 1 3 3 1 3 2 1 1 3 1 3 4 3 4 4 2 2 2 3
## [2887] 1 3 1 4 3 1 1 2 2 1 1 2 3 2 1 2 3 3 1 2 1 1 1 1 4 2 3 1 2 2 1 1 2 3 1 4 1
## [2924] 2 1 1 3 3 4 4 1 2 1 4 1 1 4 4 1 3 4 2 2 4 2 3 4 1 1 3 3 4 3 1 4 3 2 1 3 1
## [2961] 4 2 4 1 3 2 3 2 2 3 4 3 3 4 2 3 2 2 3 3 2 1 1 2 3 3 4 3 3 1 3 1 2 3 2 1 3
## [2998] 1 2 1 1 4 1 4 2 2 4 4 4 4 4 3 3 1 2 4 1 1 2 1 4 1 4 1 4 4 2 2 2 4 2 3 4 4
## [3035] 1 1 1 1 4 4 2 2 1 2 2 1 4 3 2 2 4 2 2 1 1 2 4 2 4 4 3 4 1 1 4 4 3 3 1 3 3
## [3072] 2 1 1 4 1 3 4 4 1 1 2 3 2 4 1 4 4 1 2 2 1 4 4 1 3 3 2 4 1 3 4 1 1 2 2 1 1
## [3109] 1 3 4 2 4 2 3 4 3 1 4 1 4 2 2 1 3 4 1 1 1 1 3 1 1 4 4 2 4 4 3 4 4 1 3 4 4
## [3146] 4 2 2 1 1 3 4 1 4 1 2 1 4 3 1 3 1 2 4 2 3 2 1 3 2 3 1 3 1 1 1 4 4 2 3 1 2
## [3183] 3 2 1 1 4 1 4 3 4 2 2 3 2 3 3 2 1 4 3 3 2 3 2 3 4 4 1 3 1 1 1 2 2 2 2 3 3
## [3220] 2 3 2 2 1 4 1 2 1 2 4 1 2 3 1 2 1 2 2 3 4 3 2 4 1 1 4 2 2 2 2 3 3 3 3 1 4
## [3257] 1 2 1 1 4 3 1 3 1 2 1 1 2 3 1 2 2 4 3 2 3 4 4 2 1 1 2 4 3 4 3 2 1 4 2 1 4
## [3294] 2 1 4 3 1 2 1 1 2 1 4 1 2 2 1 3 2 1 1 4 3 4 1 1 4 1 3 1 1 4 2 1 2 2 3 2 4
## [3331] 4 4 1 1 4 4 4 4 1 1 4 4 1 2 2 4 2 2 2 4 2 4 3 1 4 3 4 1 2 3 1 4 1 2 2 4 3
## [3368] 3 2 2 3 2 4 2 2 1 4 3 2 1 2 2 4 2 3 1 1 2 3 3 2 4 3 3 4 2 2 2 1 2 1 1 3 3
## [3405] 1 1 4 3 1 4 1 4 3 1 1 1 3 1 4 3 4 1 4 3 1 4 2 2 2 3 2 4 4 1 3 1 3 1 1 4 2
## [3442] 3 3 3 3 4 4 3 2 2 4 2 4 4 4 1 2 1 4 4 3 3 1 3 4 1 3 3 2 4 1 1 3 1 2 2 1 3
## [3479] 1 3 3 2 1 2 1 3 3 1 2 2 1 2 2 3 3 4 4 4 4 3 1 2 2 2 2 3 2 2 1 3 3 2 3 3 1
## [3516] 1 2 2 1 4 2 3 1 1 4 1 1 1 1 4 1 1 2 3 1 3 1 2 1 1 3 1 3 4 1 4 4 4 4 3 3 2
## [3553] 2 4 2 1 4 3 1 4 3 1 3 1 1 2 4 3 4 1 3 1 4 2 3 1 3 3 4 2 1 4 4 2 1 2 2 1 2
## [3590] 4 2 3 4 1 1 3 2 1 1 2 4 4 1 4 2 4 2 1 1 2 3 1 4 1 3 1 1 4 3 3 1 1 4 1 3 3
## [3627] 1 1 2 4 1 1 4 3 2 4 2 2 2 3 1 2 3 4 1 3 4 3 1 3 1 1 3 1 3 2 2 3 1 2 2 3 1
## [3664] 4 4 1 4 1 2 2 1 2 1 1 4 3 2 4 2 1 3 4 1 4 1 3 1 4 2 4 1 2 2 1 2 4 3 2 3 1
## [3701] 1 4 2 3 2 4 4 4 4 3 3 4 2 1 1 1 3 3 1 2 3 4 2 3 2 1 1 3 3 3 4 4 2 4 2 4 2
## [3738] 3 3 2 4 2 1 4 1 3 3 2 4 1 1 2 1 2 1 4 1 2 2 2 4 1 1 1 3 3 2 4 2 3 2 1 3 4
## [3775] 3 3 1 4 4 3 4 1 4 3 2 1 4 1 4 1 4 1 3 4 2 1 4 1 1 2 4 2 2 4 1 3 2 1 3 4 3
## [3812] 3 3 1 1 3 3 2 2 1 4 1 1 3 4 4 1 2 1 1 4 1 1 3 1 3 2 1 4 1 4 3 3 2 2 1 2 4
## [3849] 4 1 2 1 3 1 2 1 3 2 1 2 2 2 2 3 3 2 1 4 1 2 4 1 4 2 2 2 2 3 1 1 3 1 4 3 4
## [3886] 3 2 4 2 1 4 3 2 4 4 1 4 1 1 2 1 4 3 1 4 2 2 3 1 3 3 4 2 1 3 3 3 2 4 3 1 3
## [3923] 2 2 4 2 3 2 1 3 4 2 4 2 2 2 1 1 1 1 1 2 1 1 2 1 3 3 1 2 2 1 1 1 4 4 1 1 2
## [3960] 1 2 3 2 3 3 2 3 2 2 3 1 3 3 2 4 4 2 3 1 2 1 1 1 2 1 3 2 2 3 4 3 1 3 1 4 2
## [3997] 2 1 4 4 2 1 2 3 1 4 4 4 2 4 1 2 4 3 1 3 2 2 2 2 4 3 3 2 2 2 4 4 3 1 4 2 3
## [4034] 1 4 4 4 3 4 2 2 3 2 1 1 3 3 1 2 4 1 1 4 3 2 1 1 2 1 2 3 2 1 3 1 2 1 3 1 1
## [4071] 4 1 1 1 2 2 4 2 1 3 1 1 1 4 1 2 4 4 1 4 1 1 4 4 3 1 1 4 1 3 3 3 3 2 2 1 3
## [4108] 1 1 4 4 3 1 3 3 1 3 3 1 3 1 4 1 4 1 3 3 3 2 1 1 4 1 1 2 1 2 2 3 1 1 1 1 1
## [4145] 4 2 2 1 4 1 2 1 1 4 4 1 4 1 1 1 1 2 3 3 1 4 4 3 1 1 1 1 4 4 2 4 1 4 2 1 1
## [4182] 4 1 4 2 3 3 1 4 2 4 2 2 4 1 1 4 2 1 4 4 3 1 1 2 4 4 1 2 1 1 3 1 2 2 1 2 4
## [4219] 4 3 4 1 1 3 4 3 3 3 1 2 2 1 4 2 3 4 1 1 2 4 4 1 1 2 3 2 1 1 1 2 4 2 4 3 1
## [4256] 3 1 3 3 1 2 1 1 1 3 2 1 4 4 4 1 4 4 2 4 1 4 3 4 1 3 1 4 3 3 2 3 4 1 3 3 3
## [4293] 2 3 1 4 1 3 3 1 1 3 1 4 2 2 1 1 1 2 4 4 2 4 1 1 4 4 4 1 2 1 3 1 2 1 2 2 1
## [4330] 3 2 3 2 4 1 2 3 3 1 4 2 3 2 4 1 4 1 3 3 4 1 2 3 2 4 1 3 3 1 1 4 2 4 4 4 4
## [4367] 4 1 1 4 2 3
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 4.781365  1.775495 1.768158
## 2 1.695088  4.965709 4.445783
## 3 1.996988  2.833333 3.213855
## 4 2.132762  1.571734 1.544968
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 2278.886 1798.994 1892.773 1179.843
## 
## $tot.withinss
## [1] 7150.495
## 
## $betweenss
## [1] 21599.89

Accuracy of the cluster with number of clusters 4 0.7512904

#making clusters by k=6

set.seed(100)

k_mod6=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=6)

df_mod6=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod6$cluster)
df_mod6$cluster=as.factor(df_mod6$cluster)

df_mod6$cluster
##    [1] 1 6 3 3 1 2 1 4 1 3 6 2 6 6 1 6 1 2 1 5 6 3 4 1 2 2 4 6 4 6 3 4 5 1 6 5 2
##   [38] 4 4 6 6 3 4 1 1 5 4 6 3 6 6 4 4 4 1 6 6 4 5 2 4 6 4 4 1 2 6 6 5 6 6 6 4 3
##   [75] 1 6 6 1 5 6 5 4 1 5 6 1 6 2 4 5 3 6 3 4 4 2 2 2 2 4 6 6 6 6 4 6 6 2 2 6 6
##  [112] 3 6 2 1 6 5 5 1 2 5 5 3 4 6 1 5 1 1 4 2 1 4 5 5 4 1 4 6 6 5 6 1 5 6 6 2 5
##  [149] 6 3 5 5 4 4 6 5 6 6 2 5 4 2 1 1 4 1 5 6 2 3 5 1 6 1 6 1 1 5 6 6 5 2 1 1 2
##  [186] 2 6 5 1 5 1 6 6 4 5 5 5 5 4 1 1 1 6 5 6 6 2 3 1 5 5 5 1 4 4 6 4 5 6 1 6 4
##  [223] 5 5 6 2 6 1 1 1 4 6 6 2 2 5 6 4 6 2 1 2 1 2 3 1 3 2 6 1 1 2 1 4 4 2 6 2 2
##  [260] 5 5 6 3 1 1 5 6 4 6 1 2 3 2 6 4 2 6 6 6 6 6 1 6 2 1 2 4 4 2 2 6 4 5 5 3 6
##  [297] 1 6 6 4 6 2 6 1 2 4 5 2 6 6 4 2 2 1 6 6 4 1 6 1 1 1 4 1 1 4 5 4 6 6 6 6 1
##  [334] 3 6 4 4 5 6 4 4 3 1 4 6 4 1 4 2 2 6 2 6 2 2 5 2 5 1 1 1 1 4 5 1 3 1 5 1 1
##  [371] 5 1 4 1 1 1 2 1 4 3 5 2 2 2 1 3 1 5 1 1 6 1 6 6 6 6 4 6 2 1 2 2 1 1 4 6 1
##  [408] 6 4 5 1 2 1 6 4 1 5 4 1 1 3 6 2 5 1 2 2 5 4 4 1 2 1 5 5 1 6 1 2 3 5 6 3 3
##  [445] 3 1 6 1 2 5 6 1 5 4 2 3 1 5 6 2 6 2 6 5 3 6 4 1 5 1 4 6 6 3 2 2 5 6 1 6 5
##  [482] 6 6 5 2 1 2 6 1 4 1 4 5 1 5 2 5 4 3 5 5 5 2 5 2 1 1 6 1 1 6 1 5 1 1 6 6 6
##  [519] 6 4 5 6 6 4 2 3 2 5 2 2 1 5 4 4 4 2 1 1 1 5 6 6 5 6 1 4 5 1 1 5 1 2 1 2 5
##  [556] 5 6 1 1 4 6 6 5 1 6 4 2 1 6 6 5 5 4 3 5 6 6 1 1 6 5 2 1 2 1 2 6 6 6 1 2 2
##  [593] 1 1 4 6 6 5 1 2 1 1 6 4 6 6 2 6 4 6 5 1 5 5 2 6 3 4 5 1 2 3 4 6 5 1 4 2 1
##  [630] 2 6 5 5 2 2 6 2 5 6 5 6 6 1 2 1 5 5 4 5 1 6 6 6 2 2 5 6 6 1 2 6 4 1 1 1 4
##  [667] 4 1 6 3 1 1 5 1 6 6 4 1 2 2 1 4 1 4 1 5 6 5 1 4 4 5 5 2 5 5 1 1 6 3 6 6 6
##  [704] 6 1 2 5 1 5 5 2 5 4 2 5 1 6 1 5 4 1 1 3 5 1 1 4 1 1 3 1 2 6 2 2 2 2 3 6 2
##  [741] 6 6 5 5 2 3 5 6 1 2 4 2 6 4 1 4 6 4 1 6 1 5 5 5 2 5 2 4 4 4 4 1 5 6 2 5 6
##  [778] 5 1 1 4 5 6 4 4 2 6 1 6 1 1 2 5 1 6 1 2 4 1 1 5 5 5 6 2 1 4 2 2 6 5 1 6 6
##  [815] 4 6 5 2 2 2 4 5 6 5 6 1 5 2 6 5 3 6 1 1 2 3 6 5 2 1 4 1 2 6 1 6 5 1 4 4 2
##  [852] 1 6 1 5 1 1 4 5 6 1 4 4 1 1 3 2 1 2 2 4 5 5 5 6 1 6 1 2 6 1 1 5 4 2 6 4 5
##  [889] 6 6 5 6 2 5 6 5 1 5 1 6 6 2 5 5 2 4 2 1 6 6 5 2 5 1 3 4 4 5 6 1 2 1 6 4 5
##  [926] 2 6 3 2 1 4 1 5 6 2 3 4 5 6 5 6 5 6 1 2 5 5 5 2 6 4 6 1 2 1 1 2 1 4 3 3 3
##  [963] 6 6 4 2 4 5 4 4 5 6 1 3 1 6 5 2 6 4 4 5 6 4 4 1 5 4 6 5 5 1 2 1 1 6 2 1 1
## [1000] 3 1 5 5 2 1 6 3 5 1 6 1 6 2 1 4 4 6 5 1 1 4 1 6 1 2 4 5 4 1 6 2 5 2 4 1 5
## [1037] 6 6 1 5 1 4 6 2 4 1 1 4 3 1 4 4 1 6 6 6 2 5 2 1 3 6 6 6 6 6 5 6 1 2 1 6 3
## [1074] 1 5 2 5 5 6 4 1 5 4 1 6 5 5 1 3 1 2 1 5 2 4 6 5 5 4 4 2 2 3 1 4 5 1 3 5 1
## [1111] 2 1 6 1 6 2 5 2 1 4 4 4 2 6 1 5 1 2 6 1 5 5 2 3 6 6 6 1 1 6 5 5 4 6 6 2 6
## [1148] 2 1 5 1 1 1 6 5 4 5 6 5 1 2 4 6 5 6 6 2 5 2 5 1 5 6 2 5 5 2 1 5 4 1 1 4 1
## [1185] 1 5 2 2 3 5 5 1 6 2 4 4 3 2 1 6 1 4 5 5 4 1 6 6 5 1 5 6 1 5 4 5 6 6 5 6 5
## [1222] 6 4 1 2 5 6 6 2 6 1 3 4 6 3 4 4 1 1 5 4 4 2 2 1 1 2 1 5 5 6 6 6 2 2 1 1 4
## [1259] 5 6 1 6 4 1 2 4 6 2 6 5 1 5 1 6 6 1 6 6 2 1 4 1 6 5 2 1 5 4 1 5 4 1 6 6 2
## [1296] 6 5 1 6 2 6 5 6 1 3 2 1 4 6 5 5 6 2 6 2 1 2 1 1 6 5 6 5 4 4 2 4 6 1 6 2 5
## [1333] 2 2 1 1 3 6 5 1 1 2 4 4 1 6 2 5 6 4 1 3 3 1 2 4 2 5 6 1 4 6 6 6 5 1 3 6 6
## [1370] 4 6 1 1 2 1 4 2 5 1 1 3 6 6 5 1 2 6 3 6 5 5 1 6 4 4 4 3 6 4 4 6 2 6 3 5 1
## [1407] 1 6 2 1 1 6 4 4 1 1 6 3 4 6 6 1 2 6 1 1 4 1 1 5 5 4 6 1 6 5 3 6 5 1 2 6 6
## [1444] 6 2 5 2 6 6 5 1 1 6 3 6 6 1 2 1 6 5 1 6 1 1 1 6 1 2 5 6 2 3 1 1 1 6 5 4 5
## [1481] 4 1 5 1 1 4 1 5 1 4 5 2 6 5 4 6 1 1 1 1 1 2 5 2 2 5 1 6 6 2 6 1 6 4 6 1 6
## [1518] 4 6 1 4 6 3 2 1 2 1 4 6 5 6 6 5 4 6 1 5 6 5 6 1 6 5 1 1 1 4 3 2 2 4 6 2 2
## [1555] 6 1 6 2 1 6 1 4 1 4 6 1 4 3 2 2 6 5 5 4 1 5 1 5 1 6 1 5 5 6 4 1 1 6 5 5 1
## [1592] 1 6 6 5 5 6 6 6 6 6 2 5 2 1 1 4 6 5 5 5 5 1 6 6 6 5 4 6 4 3 6 6 1 5 5 2 2
## [1629] 6 1 6 6 6 6 1 1 2 5 1 6 6 5 5 3 4 6 6 1 2 5 1 6 4 1 6 5 5 5 6 4 5 1 6 1 6
## [1666] 2 2 2 6 2 5 1 5 1 6 6 3 5 1 5 1 1 6 1 6 5 4 6 1 4 6 2 1 1 5 5 6 6 5 5 4 2
## [1703] 1 6 1 6 4 5 6 3 1 6 5 6 5 5 6 2 6 5 6 4 4 4 3 2 3 1 6 5 1 6 1 6 1 2 3 4 1
## [1740] 6 1 6 1 6 6 6 2 6 1 2 6 2 6 2 6 5 2 2 6 2 1 6 2 1 4 6 2 6 6 6 2 2 3 4 2 2
## [1777] 4 1 2 5 5 5 6 2 5 4 6 1 5 1 5 5 6 5 6 4 1 4 6 5 4 1 5 1 5 5 2 5 2 5 5 2 1
## [1814] 6 5 5 6 5 4 5 2 5 6 6 1 2 1 4 4 5 5 1 4 2 6 4 2 5 3 5 6 1 6 6 6 1 6 1 5 6
## [1851] 5 6 1 2 4 2 5 5 2 5 5 6 4 6 2 1 2 1 2 6 4 5 5 2 1 1 3 1 1 1 1 2 4 6 4 2 6
## [1888] 2 5 6 2 1 6 5 2 6 2 2 5 4 4 4 2 2 1 5 6 2 1 3 4 6 3 6 5 5 2 2 5 6 5 2 1 1
## [1925] 4 5 6 1 6 1 4 5 5 5 4 6 1 4 5 5 4 6 1 5 4 5 1 5 5 4 2 4 4 6 4 1 6 5 4 5 1
## [1962] 5 5 1 6 6 6 6 2 4 2 2 5 6 4 6 6 5 4 6 6 1 1 5 6 1 6 1 4 1 3 6 1 2 2 4 6 6
## [1999] 2 6 4 1 6 2 3 2 4 1 4 2 4 4 4 6 4 5 1 1 2 6 1 5 1 6 4 5 5 1 5 1 5 2 4 6 2
## [2036] 1 4 1 2 2 6 6 5 2 2 1 1 1 5 3 6 5 6 5 6 3 1 2 4 2 1 2 1 3 5 1 6 2 4 1 2 1
## [2073] 6 6 5 5 2 6 5 6 1 5 6 1 1 5 1 6 1 5 1 6 1 4 1 2 5 2 3 6 4 5 6 3 2 1 5 4 6
## [2110] 1 4 5 2 1 4 1 1 6 2 5 6 1 6 1 1 1 1 1 1 2 6 1 1 1 4 1 2 2 2 3 6 5 5 4 1 1
## [2147] 6 6 2 2 1 4 1 1 1 4 1 1 1 5 4 1 3 5 3 6 4 2 5 5 5 1 1 6 5 5 3 2 6 6 1 6 2
## [2184] 6 3 5 6 1 4 4 1 1 6 4 1 1 5 1 2 1 5 6 4 1 1 5 2 5 4 1 4 5 4 3 1 5 2 5 1 1
## [2221] 5 4 1 6 4 5 6 6 5 1 1 4 6 4 4 5 1 6 3 6 1 6 4 3 1 6 4 5 1 1 1 2 5 3 1 1 1
## [2258] 2 2 1 1 1 2 6 1 6 2 1 2 4 6 5 5 4 1 5 1 6 6 5 2 5 4 2 5 6 1 1 4 1 6 6 1 1
## [2295] 1 2 5 2 6 1 4 1 5 1 1 5 4 6 4 2 5 5 2 4 2 5 2 4 6 1 6 3 1 2 6 2 6 6 5 6 2
## [2332] 6 1 5 6 6 4 4 1 6 1 6 6 5 1 6 2 6 2 5 5 6 5 6 1 6 6 6 6 2 4 1 2 5 1 1 6 5
## [2369] 6 6 2 5 1 4 1 6 5 5 2 1 6 5 5 2 4 6 2 6 2 4 2 1 1 4 6 2 6 1 5 1 1 5 5 6 4
## [2406] 5 5 2 6 2 5 5 2 3 1 2 1 5 2 5 6 2 5 6 2 6 1 1 4 4 6 2 6 5 4 5 1 1 6 4 1 4
## [2443] 2 1 1 1 5 5 1 2 1 2 5 4 5 2 1 1 5 4 5 1 2 1 3 6 6 5 6 2 5 6 2 2 1 6 1 5 1
## [2480] 5 3 1 6 5 4 6 1 6 1 4 6 6 1 2 1 2 4 1 6 2 2 3 1 1 2 6 5 1 4 1 1 4 2 6 5 5
## [2517] 2 5 2 1 2 5 4 6 6 1 5 6 4 4 5 1 5 2 6 5 1 6 5 5 1 1 4 1 5 3 5 3 6 6 1 5 2
## [2554] 2 1 6 3 4 4 2 1 5 6 6 2 2 4 2 6 6 4 4 3 3 6 1 2 2 1 1 3 6 4 5 4 4 6 2 5 5
## [2591] 6 2 5 4 1 5 6 5 2 1 5 6 4 6 5 6 6 6 6 5 3 2 1 6 1 2 2 6 2 4 1 1 2 1 5 5 4
## [2628] 4 1 1 1 2 1 2 2 3 5 6 6 1 6 1 6 1 1 2 1 1 1 1 1 5 6 2 1 5 1 3 1 1 1 1 3 2
## [2665] 2 6 2 2 6 6 5 5 5 6 2 2 1 3 1 6 5 4 2 4 3 6 6 6 4 5 6 5 2 5 6 5 6 6 3 6 2
## [2702] 1 6 5 2 4 6 2 6 6 6 6 5 5 6 2 4 2 2 5 5 5 6 1 4 6 1 4 4 2 4 3 2 2 4 5 6 1
## [2739] 5 2 4 1 2 6 6 1 2 1 4 2 2 5 1 1 6 1 2 5 6 4 1 6 4 1 4 1 2 1 1 3 2 2 3 2 5
## [2776] 1 5 3 4 1 6 1 1 1 6 1 1 5 4 6 4 5 1 1 6 2 3 3 6 5 1 4 1 5 4 5 1 6 1 6 4 1
## [2813] 1 5 6 4 3 6 2 1 4 6 1 1 2 6 3 6 5 4 2 4 4 5 1 5 6 5 3 5 4 2 6 6 2 5 5 6 1
## [2850] 5 6 6 1 5 2 2 4 5 2 3 6 5 2 5 4 5 4 1 3 2 4 4 6 1 1 4 1 2 5 2 5 5 6 6 6 2
## [2887] 4 2 1 5 3 1 1 6 6 1 1 6 2 6 1 6 4 4 4 6 1 4 1 1 5 6 3 1 6 6 1 1 6 2 1 5 1
## [2924] 6 1 4 3 4 5 5 1 6 4 5 1 4 5 2 1 4 5 6 6 5 6 3 5 1 1 4 3 5 2 1 5 2 6 1 2 1
## [2961] 5 6 5 1 2 6 2 6 6 2 5 2 2 5 6 2 6 6 2 4 6 1 1 6 3 4 5 4 2 1 4 1 6 2 6 4 2
## [2998] 1 6 4 1 5 1 5 6 6 5 5 5 5 5 2 2 4 6 5 1 1 6 1 5 1 5 4 5 5 6 6 6 5 2 2 5 5
## [3035] 1 1 4 1 5 5 4 6 1 6 6 1 5 2 6 6 5 6 6 1 1 6 5 6 5 2 4 5 1 1 5 5 2 4 4 2 2
## [3072] 6 1 1 5 4 2 5 5 1 1 6 2 6 5 1 5 5 4 6 6 1 5 5 1 2 3 6 2 4 2 5 1 1 6 6 4 1
## [3109] 4 2 5 6 5 6 2 2 4 1 2 4 5 6 6 4 4 5 1 1 1 1 4 1 1 5 5 6 5 5 4 5 5 1 2 5 5
## [3146] 5 6 6 1 1 2 5 1 2 1 6 1 5 4 1 4 1 6 5 6 4 6 1 2 6 2 1 2 1 4 1 5 5 6 2 1 6
## [3183] 3 6 1 1 2 1 5 4 2 6 6 3 6 4 2 6 1 5 3 2 6 4 6 2 5 5 1 4 1 1 4 6 6 6 2 2 3
## [3220] 6 3 6 6 4 5 1 6 4 6 5 1 6 4 4 6 1 6 6 4 5 4 6 5 1 1 5 6 6 6 6 2 2 2 3 1 5
## [3257] 4 4 1 1 5 2 1 2 1 6 1 4 6 2 1 6 6 5 4 6 4 5 5 6 4 1 6 5 4 5 2 6 1 5 6 4 5
## [3294] 6 4 5 2 4 4 4 1 6 1 2 1 6 6 1 2 6 1 1 2 2 5 1 1 5 1 2 1 1 5 6 1 6 6 4 6 5
## [3331] 5 5 1 1 2 5 5 5 1 4 5 5 1 6 6 5 6 6 6 5 6 5 4 1 5 2 5 4 6 2 1 5 1 2 6 2 4
## [3368] 2 6 6 4 6 5 6 6 1 5 2 2 1 6 4 5 6 2 1 1 6 2 2 6 5 2 4 5 6 6 6 4 6 1 1 2 4
## [3405] 4 1 5 3 1 5 1 5 2 1 1 1 3 1 2 2 5 1 5 3 4 5 6 6 6 3 6 5 2 1 2 1 2 1 1 5 6
## [3442] 4 2 2 2 5 5 2 6 6 5 6 5 5 5 1 6 1 5 2 4 2 1 4 5 1 2 2 6 2 1 1 4 4 6 6 1 2
## [3479] 1 2 4 6 1 6 4 2 4 1 6 6 4 6 6 2 2 5 5 5 5 3 4 6 4 6 6 3 6 6 1 2 2 6 2 3 1
## [3516] 4 6 6 1 5 6 2 1 1 2 1 1 1 1 5 4 1 6 3 1 2 1 6 1 1 2 4 3 5 1 5 5 5 5 2 2 6
## [3553] 6 5 6 1 5 2 1 5 3 1 2 1 4 6 5 3 5 1 3 4 5 6 3 1 2 2 5 6 4 5 5 6 1 6 6 1 6
## [3590] 5 6 2 5 4 1 2 6 4 4 6 2 5 1 5 6 2 6 1 4 6 4 1 2 4 2 1 4 5 2 2 1 4 5 1 4 2
## [3627] 1 1 6 5 4 1 5 4 6 5 6 6 6 2 1 6 2 5 1 2 5 2 1 3 1 1 4 1 3 6 6 3 4 6 6 2 1
## [3664] 2 5 1 5 1 4 6 1 6 4 1 5 2 6 5 6 1 2 5 4 5 1 2 4 5 2 5 1 6 6 1 6 5 2 6 2 1
## [3701] 4 5 6 2 6 5 2 5 2 3 2 5 6 1 4 1 3 2 4 6 3 5 6 2 4 1 1 2 2 2 5 5 6 5 6 5 6
## [3738] 2 2 6 5 6 1 5 4 2 4 6 5 1 1 6 1 4 1 5 1 6 6 6 5 4 1 1 4 2 6 5 6 4 6 1 2 5
## [3775] 3 2 4 5 5 2 5 1 5 3 6 1 2 1 5 1 5 1 2 2 4 4 5 4 1 6 5 6 6 5 1 2 6 1 3 5 2
## [3812] 2 2 1 1 2 4 6 6 1 5 1 1 2 5 2 1 2 1 1 5 1 4 2 1 3 2 1 2 4 5 2 2 6 6 1 6 5
## [3849] 5 1 6 1 2 1 6 1 2 4 4 6 6 6 6 4 2 6 4 5 1 6 5 4 5 6 6 6 6 4 1 1 2 1 5 2 5
## [3886] 2 6 5 6 1 2 2 6 5 5 1 5 4 1 6 4 5 3 4 5 6 6 2 1 3 3 2 6 1 3 2 2 6 5 3 1 2
## [3923] 6 6 5 6 2 6 1 3 5 6 5 6 6 6 1 4 1 1 4 6 1 1 6 1 3 2 4 6 6 1 1 1 2 5 1 1 6
## [3960] 1 6 2 6 3 4 6 2 6 6 4 1 2 4 6 2 5 6 3 1 6 1 1 4 6 1 3 6 6 2 5 2 1 2 4 5 6
## [3997] 6 4 5 2 4 1 6 2 1 5 5 5 4 5 1 6 5 2 4 2 6 6 6 6 5 2 3 6 6 6 5 2 3 1 5 6 2
## [4034] 4 2 5 5 2 5 6 6 2 6 1 1 3 4 1 4 5 1 1 2 3 6 1 1 6 1 6 2 6 1 2 1 6 1 3 4 1
## [4071] 5 1 1 1 6 6 2 6 1 2 1 4 1 5 1 6 5 5 4 5 1 1 5 5 4 1 1 2 1 4 2 2 4 6 6 1 3
## [4108] 1 1 5 2 3 4 2 4 1 2 3 1 3 1 5 1 5 1 3 4 2 6 1 1 5 1 1 6 1 2 6 2 1 1 1 1 1
## [4145] 5 6 6 4 5 1 6 4 1 5 5 1 5 1 1 4 1 6 2 2 1 2 5 3 1 1 1 1 5 2 6 5 1 5 6 1 1
## [4182] 5 1 5 2 2 2 1 5 6 5 2 6 5 1 1 5 6 1 5 2 3 4 1 6 5 5 1 6 1 1 4 1 6 6 1 6 5
## [4219] 5 2 5 4 1 3 5 3 3 3 1 6 6 1 5 6 2 5 1 1 6 5 2 1 1 6 2 6 1 1 4 6 5 6 5 2 1
## [4256] 2 1 2 4 1 6 1 4 4 3 6 1 5 5 5 4 2 5 6 2 1 5 3 5 1 2 4 5 2 4 6 3 5 1 2 4 3
## [4293] 6 2 4 5 1 3 4 1 1 4 1 5 4 6 1 4 1 6 5 5 6 5 1 1 5 5 5 1 6 1 2 1 6 1 6 6 1
## [4330] 2 6 3 4 5 1 6 2 2 4 5 6 3 6 5 4 5 1 3 2 5 1 6 3 4 5 1 2 4 1 1 5 6 5 5 5 5
## [4367] 5 1 1 5 6 3
## Levels: 1 2 3 4 5 6
head(df_mod6)
##   rec_bins freq_bins mon_bins cluster
## 1        5         1        1       1
## 2        1         5        5       6
## 3        3         2        4       3
## 4        2         3        4       3
## 5        5         1        2       1
## 6        2         4        3       2
head(k_mod6)
## $cluster
##    [1] 1 6 3 3 1 2 1 4 1 3 6 2 6 6 1 6 1 2 1 5 6 3 4 1 2 2 4 6 4 6 3 4 5 1 6 5 2
##   [38] 4 4 6 6 3 4 1 1 5 4 6 3 6 6 4 4 4 1 6 6 4 5 2 4 6 4 4 1 2 6 6 5 6 6 6 4 3
##   [75] 1 6 6 1 5 6 5 4 1 5 6 1 6 2 4 5 3 6 3 4 4 2 2 2 2 4 6 6 6 6 4 6 6 2 2 6 6
##  [112] 3 6 2 1 6 5 5 1 2 5 5 3 4 6 1 5 1 1 4 2 1 4 5 5 4 1 4 6 6 5 6 1 5 6 6 2 5
##  [149] 6 3 5 5 4 4 6 5 6 6 2 5 4 2 1 1 4 1 5 6 2 3 5 1 6 1 6 1 1 5 6 6 5 2 1 1 2
##  [186] 2 6 5 1 5 1 6 6 4 5 5 5 5 4 1 1 1 6 5 6 6 2 3 1 5 5 5 1 4 4 6 4 5 6 1 6 4
##  [223] 5 5 6 2 6 1 1 1 4 6 6 2 2 5 6 4 6 2 1 2 1 2 3 1 3 2 6 1 1 2 1 4 4 2 6 2 2
##  [260] 5 5 6 3 1 1 5 6 4 6 1 2 3 2 6 4 2 6 6 6 6 6 1 6 2 1 2 4 4 2 2 6 4 5 5 3 6
##  [297] 1 6 6 4 6 2 6 1 2 4 5 2 6 6 4 2 2 1 6 6 4 1 6 1 1 1 4 1 1 4 5 4 6 6 6 6 1
##  [334] 3 6 4 4 5 6 4 4 3 1 4 6 4 1 4 2 2 6 2 6 2 2 5 2 5 1 1 1 1 4 5 1 3 1 5 1 1
##  [371] 5 1 4 1 1 1 2 1 4 3 5 2 2 2 1 3 1 5 1 1 6 1 6 6 6 6 4 6 2 1 2 2 1 1 4 6 1
##  [408] 6 4 5 1 2 1 6 4 1 5 4 1 1 3 6 2 5 1 2 2 5 4 4 1 2 1 5 5 1 6 1 2 3 5 6 3 3
##  [445] 3 1 6 1 2 5 6 1 5 4 2 3 1 5 6 2 6 2 6 5 3 6 4 1 5 1 4 6 6 3 2 2 5 6 1 6 5
##  [482] 6 6 5 2 1 2 6 1 4 1 4 5 1 5 2 5 4 3 5 5 5 2 5 2 1 1 6 1 1 6 1 5 1 1 6 6 6
##  [519] 6 4 5 6 6 4 2 3 2 5 2 2 1 5 4 4 4 2 1 1 1 5 6 6 5 6 1 4 5 1 1 5 1 2 1 2 5
##  [556] 5 6 1 1 4 6 6 5 1 6 4 2 1 6 6 5 5 4 3 5 6 6 1 1 6 5 2 1 2 1 2 6 6 6 1 2 2
##  [593] 1 1 4 6 6 5 1 2 1 1 6 4 6 6 2 6 4 6 5 1 5 5 2 6 3 4 5 1 2 3 4 6 5 1 4 2 1
##  [630] 2 6 5 5 2 2 6 2 5 6 5 6 6 1 2 1 5 5 4 5 1 6 6 6 2 2 5 6 6 1 2 6 4 1 1 1 4
##  [667] 4 1 6 3 1 1 5 1 6 6 4 1 2 2 1 4 1 4 1 5 6 5 1 4 4 5 5 2 5 5 1 1 6 3 6 6 6
##  [704] 6 1 2 5 1 5 5 2 5 4 2 5 1 6 1 5 4 1 1 3 5 1 1 4 1 1 3 1 2 6 2 2 2 2 3 6 2
##  [741] 6 6 5 5 2 3 5 6 1 2 4 2 6 4 1 4 6 4 1 6 1 5 5 5 2 5 2 4 4 4 4 1 5 6 2 5 6
##  [778] 5 1 1 4 5 6 4 4 2 6 1 6 1 1 2 5 1 6 1 2 4 1 1 5 5 5 6 2 1 4 2 2 6 5 1 6 6
##  [815] 4 6 5 2 2 2 4 5 6 5 6 1 5 2 6 5 3 6 1 1 2 3 6 5 2 1 4 1 2 6 1 6 5 1 4 4 2
##  [852] 1 6 1 5 1 1 4 5 6 1 4 4 1 1 3 2 1 2 2 4 5 5 5 6 1 6 1 2 6 1 1 5 4 2 6 4 5
##  [889] 6 6 5 6 2 5 6 5 1 5 1 6 6 2 5 5 2 4 2 1 6 6 5 2 5 1 3 4 4 5 6 1 2 1 6 4 5
##  [926] 2 6 3 2 1 4 1 5 6 2 3 4 5 6 5 6 5 6 1 2 5 5 5 2 6 4 6 1 2 1 1 2 1 4 3 3 3
##  [963] 6 6 4 2 4 5 4 4 5 6 1 3 1 6 5 2 6 4 4 5 6 4 4 1 5 4 6 5 5 1 2 1 1 6 2 1 1
## [1000] 3 1 5 5 2 1 6 3 5 1 6 1 6 2 1 4 4 6 5 1 1 4 1 6 1 2 4 5 4 1 6 2 5 2 4 1 5
## [1037] 6 6 1 5 1 4 6 2 4 1 1 4 3 1 4 4 1 6 6 6 2 5 2 1 3 6 6 6 6 6 5 6 1 2 1 6 3
## [1074] 1 5 2 5 5 6 4 1 5 4 1 6 5 5 1 3 1 2 1 5 2 4 6 5 5 4 4 2 2 3 1 4 5 1 3 5 1
## [1111] 2 1 6 1 6 2 5 2 1 4 4 4 2 6 1 5 1 2 6 1 5 5 2 3 6 6 6 1 1 6 5 5 4 6 6 2 6
## [1148] 2 1 5 1 1 1 6 5 4 5 6 5 1 2 4 6 5 6 6 2 5 2 5 1 5 6 2 5 5 2 1 5 4 1 1 4 1
## [1185] 1 5 2 2 3 5 5 1 6 2 4 4 3 2 1 6 1 4 5 5 4 1 6 6 5 1 5 6 1 5 4 5 6 6 5 6 5
## [1222] 6 4 1 2 5 6 6 2 6 1 3 4 6 3 4 4 1 1 5 4 4 2 2 1 1 2 1 5 5 6 6 6 2 2 1 1 4
## [1259] 5 6 1 6 4 1 2 4 6 2 6 5 1 5 1 6 6 1 6 6 2 1 4 1 6 5 2 1 5 4 1 5 4 1 6 6 2
## [1296] 6 5 1 6 2 6 5 6 1 3 2 1 4 6 5 5 6 2 6 2 1 2 1 1 6 5 6 5 4 4 2 4 6 1 6 2 5
## [1333] 2 2 1 1 3 6 5 1 1 2 4 4 1 6 2 5 6 4 1 3 3 1 2 4 2 5 6 1 4 6 6 6 5 1 3 6 6
## [1370] 4 6 1 1 2 1 4 2 5 1 1 3 6 6 5 1 2 6 3 6 5 5 1 6 4 4 4 3 6 4 4 6 2 6 3 5 1
## [1407] 1 6 2 1 1 6 4 4 1 1 6 3 4 6 6 1 2 6 1 1 4 1 1 5 5 4 6 1 6 5 3 6 5 1 2 6 6
## [1444] 6 2 5 2 6 6 5 1 1 6 3 6 6 1 2 1 6 5 1 6 1 1 1 6 1 2 5 6 2 3 1 1 1 6 5 4 5
## [1481] 4 1 5 1 1 4 1 5 1 4 5 2 6 5 4 6 1 1 1 1 1 2 5 2 2 5 1 6 6 2 6 1 6 4 6 1 6
## [1518] 4 6 1 4 6 3 2 1 2 1 4 6 5 6 6 5 4 6 1 5 6 5 6 1 6 5 1 1 1 4 3 2 2 4 6 2 2
## [1555] 6 1 6 2 1 6 1 4 1 4 6 1 4 3 2 2 6 5 5 4 1 5 1 5 1 6 1 5 5 6 4 1 1 6 5 5 1
## [1592] 1 6 6 5 5 6 6 6 6 6 2 5 2 1 1 4 6 5 5 5 5 1 6 6 6 5 4 6 4 3 6 6 1 5 5 2 2
## [1629] 6 1 6 6 6 6 1 1 2 5 1 6 6 5 5 3 4 6 6 1 2 5 1 6 4 1 6 5 5 5 6 4 5 1 6 1 6
## [1666] 2 2 2 6 2 5 1 5 1 6 6 3 5 1 5 1 1 6 1 6 5 4 6 1 4 6 2 1 1 5 5 6 6 5 5 4 2
## [1703] 1 6 1 6 4 5 6 3 1 6 5 6 5 5 6 2 6 5 6 4 4 4 3 2 3 1 6 5 1 6 1 6 1 2 3 4 1
## [1740] 6 1 6 1 6 6 6 2 6 1 2 6 2 6 2 6 5 2 2 6 2 1 6 2 1 4 6 2 6 6 6 2 2 3 4 2 2
## [1777] 4 1 2 5 5 5 6 2 5 4 6 1 5 1 5 5 6 5 6 4 1 4 6 5 4 1 5 1 5 5 2 5 2 5 5 2 1
## [1814] 6 5 5 6 5 4 5 2 5 6 6 1 2 1 4 4 5 5 1 4 2 6 4 2 5 3 5 6 1 6 6 6 1 6 1 5 6
## [1851] 5 6 1 2 4 2 5 5 2 5 5 6 4 6 2 1 2 1 2 6 4 5 5 2 1 1 3 1 1 1 1 2 4 6 4 2 6
## [1888] 2 5 6 2 1 6 5 2 6 2 2 5 4 4 4 2 2 1 5 6 2 1 3 4 6 3 6 5 5 2 2 5 6 5 2 1 1
## [1925] 4 5 6 1 6 1 4 5 5 5 4 6 1 4 5 5 4 6 1 5 4 5 1 5 5 4 2 4 4 6 4 1 6 5 4 5 1
## [1962] 5 5 1 6 6 6 6 2 4 2 2 5 6 4 6 6 5 4 6 6 1 1 5 6 1 6 1 4 1 3 6 1 2 2 4 6 6
## [1999] 2 6 4 1 6 2 3 2 4 1 4 2 4 4 4 6 4 5 1 1 2 6 1 5 1 6 4 5 5 1 5 1 5 2 4 6 2
## [2036] 1 4 1 2 2 6 6 5 2 2 1 1 1 5 3 6 5 6 5 6 3 1 2 4 2 1 2 1 3 5 1 6 2 4 1 2 1
## [2073] 6 6 5 5 2 6 5 6 1 5 6 1 1 5 1 6 1 5 1 6 1 4 1 2 5 2 3 6 4 5 6 3 2 1 5 4 6
## [2110] 1 4 5 2 1 4 1 1 6 2 5 6 1 6 1 1 1 1 1 1 2 6 1 1 1 4 1 2 2 2 3 6 5 5 4 1 1
## [2147] 6 6 2 2 1 4 1 1 1 4 1 1 1 5 4 1 3 5 3 6 4 2 5 5 5 1 1 6 5 5 3 2 6 6 1 6 2
## [2184] 6 3 5 6 1 4 4 1 1 6 4 1 1 5 1 2 1 5 6 4 1 1 5 2 5 4 1 4 5 4 3 1 5 2 5 1 1
## [2221] 5 4 1 6 4 5 6 6 5 1 1 4 6 4 4 5 1 6 3 6 1 6 4 3 1 6 4 5 1 1 1 2 5 3 1 1 1
## [2258] 2 2 1 1 1 2 6 1 6 2 1 2 4 6 5 5 4 1 5 1 6 6 5 2 5 4 2 5 6 1 1 4 1 6 6 1 1
## [2295] 1 2 5 2 6 1 4 1 5 1 1 5 4 6 4 2 5 5 2 4 2 5 2 4 6 1 6 3 1 2 6 2 6 6 5 6 2
## [2332] 6 1 5 6 6 4 4 1 6 1 6 6 5 1 6 2 6 2 5 5 6 5 6 1 6 6 6 6 2 4 1 2 5 1 1 6 5
## [2369] 6 6 2 5 1 4 1 6 5 5 2 1 6 5 5 2 4 6 2 6 2 4 2 1 1 4 6 2 6 1 5 1 1 5 5 6 4
## [2406] 5 5 2 6 2 5 5 2 3 1 2 1 5 2 5 6 2 5 6 2 6 1 1 4 4 6 2 6 5 4 5 1 1 6 4 1 4
## [2443] 2 1 1 1 5 5 1 2 1 2 5 4 5 2 1 1 5 4 5 1 2 1 3 6 6 5 6 2 5 6 2 2 1 6 1 5 1
## [2480] 5 3 1 6 5 4 6 1 6 1 4 6 6 1 2 1 2 4 1 6 2 2 3 1 1 2 6 5 1 4 1 1 4 2 6 5 5
## [2517] 2 5 2 1 2 5 4 6 6 1 5 6 4 4 5 1 5 2 6 5 1 6 5 5 1 1 4 1 5 3 5 3 6 6 1 5 2
## [2554] 2 1 6 3 4 4 2 1 5 6 6 2 2 4 2 6 6 4 4 3 3 6 1 2 2 1 1 3 6 4 5 4 4 6 2 5 5
## [2591] 6 2 5 4 1 5 6 5 2 1 5 6 4 6 5 6 6 6 6 5 3 2 1 6 1 2 2 6 2 4 1 1 2 1 5 5 4
## [2628] 4 1 1 1 2 1 2 2 3 5 6 6 1 6 1 6 1 1 2 1 1 1 1 1 5 6 2 1 5 1 3 1 1 1 1 3 2
## [2665] 2 6 2 2 6 6 5 5 5 6 2 2 1 3 1 6 5 4 2 4 3 6 6 6 4 5 6 5 2 5 6 5 6 6 3 6 2
## [2702] 1 6 5 2 4 6 2 6 6 6 6 5 5 6 2 4 2 2 5 5 5 6 1 4 6 1 4 4 2 4 3 2 2 4 5 6 1
## [2739] 5 2 4 1 2 6 6 1 2 1 4 2 2 5 1 1 6 1 2 5 6 4 1 6 4 1 4 1 2 1 1 3 2 2 3 2 5
## [2776] 1 5 3 4 1 6 1 1 1 6 1 1 5 4 6 4 5 1 1 6 2 3 3 6 5 1 4 1 5 4 5 1 6 1 6 4 1
## [2813] 1 5 6 4 3 6 2 1 4 6 1 1 2 6 3 6 5 4 2 4 4 5 1 5 6 5 3 5 4 2 6 6 2 5 5 6 1
## [2850] 5 6 6 1 5 2 2 4 5 2 3 6 5 2 5 4 5 4 1 3 2 4 4 6 1 1 4 1 2 5 2 5 5 6 6 6 2
## [2887] 4 2 1 5 3 1 1 6 6 1 1 6 2 6 1 6 4 4 4 6 1 4 1 1 5 6 3 1 6 6 1 1 6 2 1 5 1
## [2924] 6 1 4 3 4 5 5 1 6 4 5 1 4 5 2 1 4 5 6 6 5 6 3 5 1 1 4 3 5 2 1 5 2 6 1 2 1
## [2961] 5 6 5 1 2 6 2 6 6 2 5 2 2 5 6 2 6 6 2 4 6 1 1 6 3 4 5 4 2 1 4 1 6 2 6 4 2
## [2998] 1 6 4 1 5 1 5 6 6 5 5 5 5 5 2 2 4 6 5 1 1 6 1 5 1 5 4 5 5 6 6 6 5 2 2 5 5
## [3035] 1 1 4 1 5 5 4 6 1 6 6 1 5 2 6 6 5 6 6 1 1 6 5 6 5 2 4 5 1 1 5 5 2 4 4 2 2
## [3072] 6 1 1 5 4 2 5 5 1 1 6 2 6 5 1 5 5 4 6 6 1 5 5 1 2 3 6 2 4 2 5 1 1 6 6 4 1
## [3109] 4 2 5 6 5 6 2 2 4 1 2 4 5 6 6 4 4 5 1 1 1 1 4 1 1 5 5 6 5 5 4 5 5 1 2 5 5
## [3146] 5 6 6 1 1 2 5 1 2 1 6 1 5 4 1 4 1 6 5 6 4 6 1 2 6 2 1 2 1 4 1 5 5 6 2 1 6
## [3183] 3 6 1 1 2 1 5 4 2 6 6 3 6 4 2 6 1 5 3 2 6 4 6 2 5 5 1 4 1 1 4 6 6 6 2 2 3
## [3220] 6 3 6 6 4 5 1 6 4 6 5 1 6 4 4 6 1 6 6 4 5 4 6 5 1 1 5 6 6 6 6 2 2 2 3 1 5
## [3257] 4 4 1 1 5 2 1 2 1 6 1 4 6 2 1 6 6 5 4 6 4 5 5 6 4 1 6 5 4 5 2 6 1 5 6 4 5
## [3294] 6 4 5 2 4 4 4 1 6 1 2 1 6 6 1 2 6 1 1 2 2 5 1 1 5 1 2 1 1 5 6 1 6 6 4 6 5
## [3331] 5 5 1 1 2 5 5 5 1 4 5 5 1 6 6 5 6 6 6 5 6 5 4 1 5 2 5 4 6 2 1 5 1 2 6 2 4
## [3368] 2 6 6 4 6 5 6 6 1 5 2 2 1 6 4 5 6 2 1 1 6 2 2 6 5 2 4 5 6 6 6 4 6 1 1 2 4
## [3405] 4 1 5 3 1 5 1 5 2 1 1 1 3 1 2 2 5 1 5 3 4 5 6 6 6 3 6 5 2 1 2 1 2 1 1 5 6
## [3442] 4 2 2 2 5 5 2 6 6 5 6 5 5 5 1 6 1 5 2 4 2 1 4 5 1 2 2 6 2 1 1 4 4 6 6 1 2
## [3479] 1 2 4 6 1 6 4 2 4 1 6 6 4 6 6 2 2 5 5 5 5 3 4 6 4 6 6 3 6 6 1 2 2 6 2 3 1
## [3516] 4 6 6 1 5 6 2 1 1 2 1 1 1 1 5 4 1 6 3 1 2 1 6 1 1 2 4 3 5 1 5 5 5 5 2 2 6
## [3553] 6 5 6 1 5 2 1 5 3 1 2 1 4 6 5 3 5 1 3 4 5 6 3 1 2 2 5 6 4 5 5 6 1 6 6 1 6
## [3590] 5 6 2 5 4 1 2 6 4 4 6 2 5 1 5 6 2 6 1 4 6 4 1 2 4 2 1 4 5 2 2 1 4 5 1 4 2
## [3627] 1 1 6 5 4 1 5 4 6 5 6 6 6 2 1 6 2 5 1 2 5 2 1 3 1 1 4 1 3 6 6 3 4 6 6 2 1
## [3664] 2 5 1 5 1 4 6 1 6 4 1 5 2 6 5 6 1 2 5 4 5 1 2 4 5 2 5 1 6 6 1 6 5 2 6 2 1
## [3701] 4 5 6 2 6 5 2 5 2 3 2 5 6 1 4 1 3 2 4 6 3 5 6 2 4 1 1 2 2 2 5 5 6 5 6 5 6
## [3738] 2 2 6 5 6 1 5 4 2 4 6 5 1 1 6 1 4 1 5 1 6 6 6 5 4 1 1 4 2 6 5 6 4 6 1 2 5
## [3775] 3 2 4 5 5 2 5 1 5 3 6 1 2 1 5 1 5 1 2 2 4 4 5 4 1 6 5 6 6 5 1 2 6 1 3 5 2
## [3812] 2 2 1 1 2 4 6 6 1 5 1 1 2 5 2 1 2 1 1 5 1 4 2 1 3 2 1 2 4 5 2 2 6 6 1 6 5
## [3849] 5 1 6 1 2 1 6 1 2 4 4 6 6 6 6 4 2 6 4 5 1 6 5 4 5 6 6 6 6 4 1 1 2 1 5 2 5
## [3886] 2 6 5 6 1 2 2 6 5 5 1 5 4 1 6 4 5 3 4 5 6 6 2 1 3 3 2 6 1 3 2 2 6 5 3 1 2
## [3923] 6 6 5 6 2 6 1 3 5 6 5 6 6 6 1 4 1 1 4 6 1 1 6 1 3 2 4 6 6 1 1 1 2 5 1 1 6
## [3960] 1 6 2 6 3 4 6 2 6 6 4 1 2 4 6 2 5 6 3 1 6 1 1 4 6 1 3 6 6 2 5 2 1 2 4 5 6
## [3997] 6 4 5 2 4 1 6 2 1 5 5 5 4 5 1 6 5 2 4 2 6 6 6 6 5 2 3 6 6 6 5 2 3 1 5 6 2
## [4034] 4 2 5 5 2 5 6 6 2 6 1 1 3 4 1 4 5 1 1 2 3 6 1 1 6 1 6 2 6 1 2 1 6 1 3 4 1
## [4071] 5 1 1 1 6 6 2 6 1 2 1 4 1 5 1 6 5 5 4 5 1 1 5 5 4 1 1 2 1 4 2 2 4 6 6 1 3
## [4108] 1 1 5 2 3 4 2 4 1 2 3 1 3 1 5 1 5 1 3 4 2 6 1 1 5 1 1 6 1 2 6 2 1 1 1 1 1
## [4145] 5 6 6 4 5 1 6 4 1 5 5 1 5 1 1 4 1 6 2 2 1 2 5 3 1 1 1 1 5 2 6 5 1 5 6 1 1
## [4182] 5 1 5 2 2 2 1 5 6 5 2 6 5 1 1 5 6 1 5 2 3 4 1 6 5 5 1 6 1 1 4 1 6 6 1 6 5
## [4219] 5 2 5 4 1 3 5 3 3 3 1 6 6 1 5 6 2 5 1 1 6 5 2 1 1 6 2 6 1 1 4 6 5 6 5 2 1
## [4256] 2 1 2 4 1 6 1 4 4 3 6 1 5 5 5 4 2 5 6 2 1 5 3 5 1 2 4 5 2 4 6 3 5 1 2 4 3
## [4293] 6 2 4 5 1 3 4 1 1 4 1 5 4 6 1 4 1 6 5 5 6 5 1 1 5 5 5 1 6 1 2 1 6 1 6 6 1
## [4330] 2 6 3 4 5 1 6 2 2 4 5 6 3 6 5 4 5 1 3 2 5 1 6 3 4 5 1 2 4 1 1 5 6 5 5 5 5
## [4367] 5 1 1 5 6 3
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 4.818786  1.444972 1.436433
## 2 1.488406  2.873913 2.626087
## 3 1.938679  2.556604 4.674528
## 4 4.020906  3.031359 2.987805
## 5 2.270758  1.511432 1.493381
## 6 1.597428  4.969337 4.528190
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1]  813.9374  753.9681  309.0660 1232.0993  929.4344 1261.1494
## 
## $tot.withinss
## [1] 5299.655
## 
## $betweenss
## [1] 23450.73
head(rfm_bin)
##   custid mon_bins freq_bins rec_bins tot_score
## 1  12346        1         1        5  2.333333
## 2  12347        5         5        1  3.666667
## 3  12348        4         2        3  3.000000
## 4  12349        4         3        2  3.000000
## 5  12350        2         1        5  2.666667
## 6  12352        3         4        2  3.000000

Accuracy of the cluster with number of clusters 6=0.8156666

#scaling

summary(df_mod6)
##     rec_bins      freq_bins       mon_bins     cluster 
##  Min.   :1.00   Min.   :1.00   Min.   :1.000   1:1054  
##  1st Qu.:1.00   1st Qu.:1.00   1st Qu.:1.750   2: 690  
##  Median :2.00   Median :2.00   Median :2.500   3: 212  
##  Mean   :2.82   Mean   :2.76   Mean   :2.711   4: 574  
##  3rd Qu.:4.00   3rd Qu.:4.00   3rd Qu.:3.250   5: 831  
##  Max.   :5.00   Max.   :5.00   Max.   :5.000   6:1011
df_mod6_scale=scale(df_mod6[,c("rec_bins","freq_bins","mon_bins")],center=TRUE,scale=TRUE)

summary(df_mod6_scale)
##     rec_bins         freq_bins          mon_bins      
##  Min.   :-1.1989   Min.   :-1.1800   Min.   :-1.1951  
##  1st Qu.:-1.1989   1st Qu.:-1.1800   1st Qu.:-0.6712  
##  Median :-0.5400   Median :-0.5097   Median :-0.1472  
##  Mean   : 0.0000   Mean   : 0.0000   Mean   : 0.0000  
##  3rd Qu.: 0.7778   3rd Qu.: 0.8310   3rd Qu.: 0.3768  
##  Max.   : 1.4367   Max.   : 1.5014   Max.   : 1.5994
kmod_61=kmeans(df_mod6_scale,centers=6)
head(kmod_61)
## $cluster
##    [1] 3 5 1 1 3 4 3 2 3 5 5 1 5 5 3 5 2 1 2 6 5 1 1 3 1 6 2 5 1 5 1 2 6 3 5 6 4
##   [38] 1 1 5 5 1 2 3 3 6 2 5 1 5 5 2 1 1 2 5 5 2 6 1 2 5 2 1 2 1 5 5 6 5 5 5 1 1
##   [75] 3 5 5 3 6 5 6 1 2 6 5 3 5 6 2 6 5 5 5 1 2 1 1 1 1 2 5 5 5 5 1 5 5 1 6 5 5
##  [112] 5 5 1 3 5 6 6 2 1 6 6 5 5 5 3 6 3 3 2 1 3 2 6 6 2 3 1 5 5 6 5 2 6 5 5 1 6
##  [149] 5 1 6 6 2 1 5 6 5 5 1 6 1 1 3 3 1 3 6 5 4 1 6 2 5 3 5 2 3 6 5 5 6 1 3 3 1
##  [186] 4 5 6 2 6 2 5 5 2 6 6 6 6 2 2 2 2 5 6 5 5 1 5 2 6 1 6 3 4 1 5 1 6 5 2 5 1
##  [223] 6 6 5 1 5 3 2 2 2 5 5 1 1 6 5 4 5 1 2 1 3 1 2 2 1 1 5 2 2 6 3 2 2 6 5 1 1
##  [260] 6 6 5 1 3 3 6 5 2 5 3 6 5 1 5 1 1 5 5 5 5 5 3 5 1 3 1 2 1 6 1 5 1 6 6 5 5
##  [297] 2 5 5 2 5 1 5 2 1 2 6 6 5 5 1 1 1 2 5 5 1 2 5 3 2 3 2 3 3 1 6 4 5 5 5 5 3
##  [334] 5 5 2 2 6 5 5 4 5 2 2 5 2 2 1 1 1 5 1 5 1 1 6 6 6 2 3 2 2 1 6 3 1 2 6 2 2
##  [371] 6 3 2 2 3 2 1 3 1 1 6 4 6 1 3 1 3 6 2 2 5 3 4 5 5 5 1 4 1 2 1 1 2 2 2 4 3
##  [408] 5 2 6 3 4 2 5 2 3 6 2 3 3 5 4 1 6 3 1 1 6 1 1 3 1 3 6 6 3 5 3 1 5 6 5 5 1
##  [445] 5 2 5 3 1 6 5 2 6 1 1 5 3 6 5 4 5 1 4 6 5 4 2 3 6 2 4 5 5 1 1 1 6 5 3 5 6
##  [482] 5 4 6 1 3 4 5 3 2 3 2 6 2 6 1 6 2 5 6 6 6 1 6 1 2 2 5 3 3 5 2 6 3 3 4 5 5
##  [519] 5 1 6 5 5 1 1 2 1 1 4 1 3 6 1 2 1 1 3 2 2 6 5 5 6 5 2 1 6 3 3 6 3 1 3 1 6
##  [556] 6 5 3 3 2 4 5 6 3 5 2 6 3 5 5 6 6 5 1 6 5 5 3 3 5 6 1 3 1 3 1 4 5 5 2 1 1
##  [593] 3 2 2 5 5 6 3 1 3 3 4 2 5 5 1 5 2 5 6 3 6 6 1 5 1 2 6 3 1 1 2 4 6 3 2 1 2
##  [630] 1 4 6 6 1 1 5 1 6 5 6 5 5 3 1 3 6 6 2 6 3 5 5 5 1 1 6 4 5 2 1 4 1 3 3 3 1
##  [667] 2 3 5 1 3 3 6 3 5 4 1 2 1 1 2 2 3 2 3 6 5 6 2 2 2 6 6 1 6 6 2 3 5 5 5 5 5
##  [704] 5 3 4 6 3 6 6 1 6 2 1 6 3 5 2 6 2 3 3 5 6 3 2 2 3 2 5 3 1 4 1 6 1 1 5 5 6
##  [741] 5 4 6 6 1 5 6 5 2 1 2 6 5 1 2 2 5 2 2 5 2 6 6 6 1 6 6 1 2 1 2 2 6 5 1 6 5
##  [778] 6 2 3 2 6 5 1 2 4 5 3 5 2 2 1 6 3 5 2 1 1 2 2 6 6 6 5 1 3 2 1 6 5 6 3 5 5
##  [815] 2 5 6 6 1 1 1 6 5 6 5 2 6 1 5 6 5 5 3 3 1 1 5 6 1 3 1 2 4 5 3 5 6 2 2 2 1
##  [852] 3 5 3 6 3 2 1 6 5 3 1 2 3 2 5 6 2 1 1 2 6 6 6 5 2 5 3 1 5 3 3 6 1 1 5 1 6
##  [889] 5 4 6 5 1 6 5 6 2 6 2 5 5 1 6 6 4 4 1 3 5 5 6 4 6 3 1 1 2 6 4 2 1 3 5 2 6
##  [926] 1 5 1 6 3 2 3 6 5 6 5 1 6 5 6 4 6 5 3 4 6 6 6 4 4 1 4 2 1 3 3 1 3 4 5 5 2
##  [963] 5 4 1 1 4 6 1 2 6 5 3 1 2 5 6 1 5 2 2 6 5 2 1 3 6 2 5 6 6 3 1 2 3 5 1 3 3
## [1000] 1 3 6 6 1 3 5 5 6 3 5 3 5 1 2 2 2 5 6 3 3 2 3 4 3 1 2 6 2 3 5 1 6 1 2 2 6
## [1037] 5 4 2 6 2 1 5 1 2 3 3 2 1 3 2 2 3 5 5 5 1 6 1 3 1 4 5 5 5 4 6 5 3 1 3 4 1
## [1074] 3 6 1 1 6 5 2 2 6 2 3 5 6 6 3 1 3 1 3 6 1 1 5 6 6 2 2 4 1 1 3 1 6 3 5 6 2
## [1111] 1 3 4 3 5 6 6 1 2 4 4 2 1 5 3 6 3 1 5 2 6 6 1 1 5 5 5 2 2 4 6 6 1 5 5 1 5
## [1148] 1 2 6 2 2 3 5 6 2 6 5 6 3 6 2 5 6 5 5 6 6 1 6 3 6 5 1 6 6 6 2 6 1 3 2 2 2
## [1185] 3 6 1 1 5 6 6 3 5 1 2 5 1 6 2 4 3 1 6 6 2 3 5 5 6 3 6 5 3 6 1 6 5 5 6 5 6
## [1222] 5 1 3 1 6 5 5 1 5 3 1 2 5 5 2 2 3 2 6 1 5 1 6 2 2 6 3 6 6 5 5 5 1 1 2 3 1
## [1259] 6 5 3 4 2 3 1 2 5 1 5 6 3 6 2 5 5 3 5 5 1 3 1 3 4 6 1 2 6 2 3 6 2 3 4 5 6
## [1296] 5 6 3 5 4 5 6 5 3 1 1 3 1 5 6 6 5 1 5 1 3 1 3 3 5 6 5 6 2 1 1 2 5 2 5 1 6
## [1333] 1 1 2 3 1 5 6 3 3 1 1 2 3 5 1 6 5 2 3 5 1 3 1 2 6 6 5 2 1 5 4 5 6 3 5 5 5
## [1370] 1 5 2 3 1 3 1 6 6 2 3 5 5 5 6 3 1 5 1 5 6 6 2 5 2 2 4 5 5 1 2 5 1 4 5 6 3
## [1407] 3 5 1 3 3 5 2 2 3 3 5 5 2 5 5 3 1 5 2 2 2 2 3 6 6 1 5 3 5 6 1 5 6 3 1 5 5
## [1444] 5 1 6 1 5 5 6 3 3 4 1 5 5 3 1 3 5 6 2 4 2 3 3 5 2 1 6 5 1 1 2 3 3 5 6 2 6
## [1481] 2 2 6 3 3 2 3 6 3 1 6 1 5 6 2 5 3 3 3 2 3 1 6 4 1 6 3 5 5 1 5 3 5 1 5 2 5
## [1518] 2 4 3 2 5 5 4 2 1 3 4 5 6 5 4 6 1 5 3 6 5 6 4 2 5 1 3 3 3 2 5 1 1 4 4 1 6
## [1555] 4 2 4 6 3 5 3 2 3 5 5 3 2 5 1 1 5 6 6 1 3 1 2 6 2 5 3 6 6 4 1 2 3 5 6 6 2
## [1592] 2 5 4 6 6 5 5 4 5 5 4 6 1 3 2 1 5 6 6 6 1 3 5 5 5 6 4 5 2 1 5 5 3 6 6 6 1
## [1629] 4 3 5 5 5 5 2 2 1 6 2 4 5 6 6 5 1 5 5 2 1 6 3 5 2 3 4 6 6 6 4 2 6 3 4 3 4
## [1666] 4 4 1 5 1 6 2 6 2 5 5 1 6 3 6 2 2 5 2 4 6 2 5 3 1 4 1 3 2 6 6 5 5 6 6 2 1
## [1703] 2 5 3 4 4 6 5 5 2 4 6 5 6 6 4 4 4 6 5 2 2 2 1 4 5 3 5 6 3 4 3 5 3 1 5 2 3
## [1740] 5 3 4 3 5 5 5 6 4 3 1 5 4 5 1 5 6 1 1 4 1 3 4 1 3 2 5 1 5 5 5 1 1 5 2 1 1
## [1777] 2 2 1 6 6 6 5 1 6 2 5 3 6 2 6 6 5 6 5 2 3 1 5 6 2 2 6 3 6 6 1 6 1 6 6 1 3
## [1814] 5 6 6 5 6 2 6 1 6 5 5 3 1 3 2 1 6 6 3 2 1 5 2 1 6 1 6 4 3 5 5 5 3 5 3 6 5
## [1851] 6 5 2 1 1 1 6 6 1 6 6 5 2 5 1 3 4 2 1 4 1 6 6 1 2 2 1 2 3 3 2 1 1 5 2 1 4
## [1888] 4 6 5 1 2 5 6 6 5 1 1 6 1 2 2 1 1 3 6 5 1 3 1 2 5 1 5 6 6 1 6 6 5 6 1 3 2
## [1925] 1 6 5 3 4 3 2 6 6 6 1 4 3 2 6 6 1 5 3 6 2 6 2 6 6 2 1 4 2 5 4 3 4 6 4 6 3
## [1962] 6 6 2 5 4 5 5 1 1 1 1 6 4 2 5 5 6 4 4 5 2 3 6 5 3 5 2 4 3 1 4 3 1 4 2 5 4
## [1999] 4 5 1 3 5 1 1 4 2 3 2 1 2 1 2 5 2 6 3 3 1 5 2 6 2 5 2 6 6 2 6 3 6 1 2 5 4
## [2036] 3 2 2 1 1 5 5 6 1 1 3 3 2 6 1 5 6 5 6 4 5 2 1 2 1 3 1 3 5 6 3 5 1 2 2 6 2
## [2073] 5 5 6 6 1 5 6 5 3 6 4 2 3 6 2 5 3 6 3 5 3 1 2 1 6 6 5 5 2 6 5 1 1 3 6 4 5
## [2110] 3 1 6 1 2 1 3 2 5 1 6 5 3 4 3 3 2 3 2 3 1 5 2 2 3 5 3 4 1 1 1 4 6 6 2 2 3
## [2147] 5 5 1 1 2 1 3 3 2 2 3 3 3 6 2 3 1 6 5 5 1 1 6 6 6 3 3 5 6 6 5 1 5 5 3 5 6
## [2184] 5 1 6 5 2 1 1 3 2 5 1 3 2 6 3 6 3 6 5 1 2 2 6 1 1 2 2 2 6 1 1 2 6 6 6 3 3
## [2221] 6 2 3 5 2 6 5 5 6 3 3 2 4 1 4 6 3 5 2 5 3 4 5 1 3 5 2 6 2 3 3 1 6 5 3 3 3
## [2258] 1 1 2 2 3 1 4 3 5 4 3 1 2 5 6 6 1 3 6 3 4 4 6 1 6 1 1 6 4 2 3 1 3 5 4 3 3
## [2295] 2 1 6 1 4 3 2 2 6 2 3 6 2 5 1 1 6 6 1 2 1 6 1 2 5 2 5 5 3 1 5 1 5 4 1 5 1
## [2332] 5 2 6 5 4 2 2 3 4 3 5 5 6 3 5 6 5 1 6 6 4 6 5 3 5 4 5 4 1 2 3 6 6 3 3 5 6
## [2369] 5 4 1 6 3 1 3 5 6 6 1 3 4 6 6 1 2 5 1 5 4 2 1 3 3 1 5 1 4 2 1 2 3 6 6 5 2
## [2406] 6 6 1 5 1 6 6 1 5 3 1 3 6 1 6 5 1 6 4 1 5 2 2 2 1 5 1 5 6 1 6 3 2 5 4 2 2
## [2443] 1 2 2 2 6 6 2 1 2 1 6 2 6 4 3 3 6 5 6 3 1 3 5 5 4 6 5 1 6 4 1 1 3 5 3 6 3
## [2480] 6 5 2 5 6 2 4 3 5 3 1 4 5 3 1 2 6 2 3 5 4 1 5 3 3 6 5 6 3 1 3 3 2 1 5 6 6
## [2517] 1 6 1 3 1 6 2 5 5 3 6 5 4 1 6 3 6 1 5 6 2 5 6 6 3 3 2 2 6 5 6 5 5 4 2 6 1
## [2554] 1 2 5 2 4 4 1 3 6 5 5 1 1 5 1 4 5 2 2 1 5 5 3 1 1 3 2 1 4 2 6 1 2 5 1 6 6
## [2591] 5 1 6 1 3 6 5 6 4 3 6 5 2 5 6 4 4 5 4 6 1 1 2 5 3 1 4 5 4 2 2 2 1 2 6 6 2
## [2628] 2 3 3 3 1 3 1 4 5 6 4 4 3 4 3 4 3 2 4 2 2 3 3 3 6 5 1 3 6 2 5 3 3 3 3 1 1
## [2665] 6 5 1 1 5 5 6 6 6 4 1 6 3 1 3 5 6 2 1 1 5 5 4 5 2 6 4 6 1 6 5 6 4 5 1 5 4
## [2702] 3 5 6 1 2 5 4 5 4 4 4 6 6 5 1 2 4 6 6 6 6 5 2 2 5 2 1 2 6 1 1 1 1 2 6 4 3
## [2739] 6 1 2 3 1 5 4 3 1 2 2 4 1 6 2 3 5 3 1 6 5 2 2 4 1 2 2 3 1 3 3 5 1 1 1 1 6
## [2776] 3 6 1 1 2 4 3 3 3 5 2 3 6 1 4 1 6 3 3 5 1 1 5 5 6 2 1 3 6 1 6 2 5 3 5 2 2
## [2813] 3 6 5 2 1 5 6 3 1 5 3 3 1 5 1 5 6 2 1 2 2 6 3 6 5 6 1 6 1 6 5 5 1 6 6 5 2
## [2850] 6 4 5 2 6 1 4 1 6 1 5 5 6 1 6 2 6 2 3 5 4 2 4 4 3 3 1 2 1 6 1 6 6 5 5 5 1
## [2887] 2 1 3 6 1 2 3 5 5 2 3 5 1 4 3 5 1 1 2 4 2 2 2 2 6 4 1 3 4 4 3 3 5 1 3 6 3
## [2924] 5 2 2 1 1 6 6 3 5 2 6 3 2 6 6 3 4 6 5 5 6 4 5 6 3 3 4 5 6 1 3 6 1 4 3 1 3
## [2961] 6 5 6 3 1 5 1 5 4 1 6 1 1 6 4 1 4 4 4 4 4 2 2 5 1 4 6 1 1 3 1 2 5 4 4 2 1
## [2998] 2 5 2 3 6 3 6 5 5 6 6 6 6 6 1 4 2 5 6 3 2 5 3 6 3 6 2 6 6 4 4 5 6 4 1 6 6
## [3035] 3 3 2 3 6 6 4 5 3 5 4 3 6 1 4 4 6 4 4 3 2 5 6 5 6 6 1 6 3 2 6 6 1 1 2 4 4
## [3072] 5 3 2 6 2 1 1 6 3 3 4 1 4 6 3 6 6 2 5 5 3 6 6 2 1 1 4 6 2 1 6 3 3 5 5 2 3
## [3109] 2 1 6 5 6 5 1 6 1 3 6 2 6 5 4 2 1 6 3 3 3 3 1 3 3 6 6 5 6 6 1 6 6 3 1 6 6
## [3146] 6 5 5 3 3 1 6 2 6 3 5 3 6 1 3 1 2 5 6 5 1 5 3 1 5 1 3 1 2 2 3 6 6 5 1 2 5
## [3183] 5 4 3 3 1 3 6 1 6 4 5 1 5 4 1 5 3 6 1 1 5 1 5 1 6 6 2 1 2 3 2 5 5 5 4 1 5
## [3220] 5 1 5 5 2 6 3 5 2 5 6 3 5 1 2 4 2 4 5 1 6 1 5 6 3 3 6 5 4 5 5 1 1 4 1 3 6
## [3257] 2 4 3 3 6 1 3 1 2 5 3 2 5 1 2 4 5 6 1 5 1 6 6 5 2 2 5 6 4 6 4 5 3 6 4 2 6
## [3294] 4 2 6 1 2 4 2 3 4 3 6 3 5 5 2 4 5 2 2 6 1 6 3 3 6 3 1 2 3 6 5 2 5 5 1 5 6
## [3331] 6 6 3 2 6 6 6 6 3 2 6 6 3 4 5 6 5 5 4 6 4 6 1 3 6 4 6 2 4 4 2 6 2 4 4 6 2
## [3368] 1 5 5 1 4 6 4 5 3 6 1 4 3 4 5 6 5 1 3 3 5 1 1 5 6 1 1 6 5 5 5 2 5 2 2 1 1
## [3405] 2 3 6 5 2 6 3 6 4 3 3 3 1 2 6 1 6 3 6 1 2 6 5 5 5 1 5 6 1 3 4 3 1 2 3 6 5
## [3442] 1 1 1 1 6 6 1 5 5 1 4 6 6 6 3 4 2 6 6 1 1 2 1 6 3 1 4 5 1 2 2 1 2 5 5 2 1
## [3479] 3 1 1 5 3 5 2 1 1 3 5 5 2 5 4 1 1 6 6 6 6 5 2 5 4 5 5 5 5 5 3 1 1 4 1 1 3
## [3516] 2 5 4 3 6 4 1 3 3 6 2 3 3 2 6 2 3 5 1 2 1 2 5 2 3 1 2 1 6 2 6 6 6 6 1 4 5
## [3553] 5 6 5 3 6 1 3 6 5 3 1 3 2 4 6 5 6 3 5 2 6 5 1 3 1 4 6 5 2 6 6 5 3 5 4 3 5
## [3590] 6 5 1 6 2 2 1 5 2 2 5 6 6 3 6 4 6 5 3 2 5 1 3 6 2 1 3 2 6 4 1 3 2 6 3 4 1
## [3627] 2 2 5 6 2 3 6 2 4 6 4 4 4 4 3 5 1 6 2 1 6 1 2 5 3 3 1 3 1 5 5 1 2 4 4 1 3
## [3664] 6 6 3 6 3 5 5 3 5 2 3 6 1 5 6 4 3 1 6 2 1 3 1 2 6 4 6 2 5 5 3 4 6 1 4 1 2
## [3701] 2 6 5 1 5 6 6 6 6 1 1 6 5 3 2 3 1 1 2 5 5 6 5 4 5 3 2 1 1 1 1 6 5 6 5 6 5
## [3738] 1 1 5 6 5 2 6 2 1 1 5 6 2 3 5 3 5 3 6 3 5 5 5 6 2 3 3 2 1 4 6 4 1 5 3 1 6
## [3775] 1 1 2 6 6 1 6 2 6 5 5 3 6 3 6 2 1 3 1 6 5 2 6 2 2 5 6 5 5 6 3 1 4 3 1 6 1
## [3812] 1 1 3 3 1 1 5 5 3 6 3 3 1 6 6 3 4 3 3 6 3 2 1 2 5 4 3 6 2 6 1 1 4 5 2 4 6
## [3849] 6 3 5 3 1 2 5 3 1 4 2 5 4 5 5 1 1 5 2 6 3 5 6 2 6 4 5 5 5 4 3 3 1 2 6 1 6
## [3886] 1 5 6 5 2 6 1 5 6 6 3 6 2 3 5 2 6 1 2 6 5 5 1 3 5 1 6 5 2 1 1 1 5 6 5 3 1
## [3923] 5 5 6 5 1 5 3 1 6 5 6 5 5 5 3 2 3 3 2 5 2 3 5 2 1 1 2 5 5 3 3 3 6 6 3 3 5
## [3960] 3 5 1 5 2 1 5 1 5 5 1 2 1 1 5 6 6 5 5 3 5 3 3 2 5 3 1 5 5 4 6 1 3 1 2 6 5
## [3997] 5 2 6 6 4 3 4 1 3 6 6 6 2 6 3 5 6 1 2 1 4 5 4 4 6 1 5 5 4 5 6 6 5 3 6 5 1
## [4034] 2 6 6 6 1 6 4 5 1 5 3 3 1 1 2 5 6 3 3 1 5 5 3 2 5 3 5 4 5 3 1 2 5 3 1 2 3
## [4071] 6 3 2 3 4 4 6 4 3 1 3 2 3 6 3 4 6 6 2 6 3 3 6 6 1 3 2 6 2 1 1 4 1 5 4 3 1
## [4108] 3 2 6 1 1 2 1 1 3 1 5 3 1 3 6 3 6 3 5 1 1 5 2 3 6 3 3 4 3 4 5 1 2 2 3 2 3
## [4145] 6 4 5 2 6 3 4 2 2 6 6 3 6 2 3 2 3 4 1 1 3 6 6 1 3 3 3 3 6 6 4 6 3 6 4 3 3
## [4182] 6 3 6 4 1 4 3 6 5 6 4 5 6 3 3 6 5 2 6 6 5 2 2 5 6 6 3 5 2 3 2 3 5 5 2 5 1
## [4219] 6 1 6 2 3 2 6 5 2 5 2 4 5 3 6 5 1 6 2 3 5 6 6 3 3 4 1 5 3 3 2 5 6 4 6 1 3
## [4256] 1 2 1 1 3 5 3 2 2 5 5 3 6 6 6 2 6 6 4 6 2 6 1 6 3 1 2 6 1 1 5 1 6 2 1 2 1
## [4293] 5 1 2 6 3 5 1 3 3 1 3 6 4 5 3 2 3 5 6 6 5 6 2 3 6 6 6 2 5 3 1 2 5 3 5 5 3
## [4330] 1 5 5 5 6 3 4 1 1 2 6 5 5 5 6 2 6 2 1 4 6 3 5 1 5 6 3 1 1 3 3 6 5 6 6 6 6
## [4367] 6 3 3 6 5 1
## 
## $centers
##     rec_bins   freq_bins    mon_bins
## 1 -0.5765776 -0.07652621  0.21733549
## 2  1.2349858 -0.20586516 -0.13835224
## 3  1.3292974 -1.06051696 -1.06962419
## 4 -0.5732105  1.36812629  0.09641749
## 5 -0.7854238  1.33786441  1.55184205
## 6 -0.4417959 -0.78935214 -0.84273898
## 
## $totss
## [1] 13113
## 
## $withinss
## [1] 508.3159 500.9379 141.4346 174.5573 501.0157 490.8617
## 
## $tot.withinss
## [1] 2317.123
## 
## $betweenss
## [1] 10795.88

Accuracy of the cluster with number of clusters 6 after normalisation=0.8232957

Using the factoextra R package

The function fviz_cluster() [factoextra package] can be used to easily visualize k-means clusters. It takes k-means results and the original data as arguments.

#In the resulting plot, observations are represented by points, # using principal components if the number of variables is greater than 2. #It’s also possible to draw concentration ellipse around each cluster.

#install.packages("ggpubr")
#install.packages("factoextra")
library(ggpubr)
## Warning: package 'ggpubr' was built under R version 4.0.5
## 
## Attaching package: 'ggpubr'
## The following object is masked from 'package:plyr':
## 
##     mutate
library(factoextra)
## Warning: package 'factoextra' was built under R version 4.0.5
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa

#Compute PCA and extract individual coordinates

Dimension reduction using PCA

df_mod6$cluster
##    [1] 1 6 3 3 1 2 1 4 1 3 6 2 6 6 1 6 1 2 1 5 6 3 4 1 2 2 4 6 4 6 3 4 5 1 6 5 2
##   [38] 4 4 6 6 3 4 1 1 5 4 6 3 6 6 4 4 4 1 6 6 4 5 2 4 6 4 4 1 2 6 6 5 6 6 6 4 3
##   [75] 1 6 6 1 5 6 5 4 1 5 6 1 6 2 4 5 3 6 3 4 4 2 2 2 2 4 6 6 6 6 4 6 6 2 2 6 6
##  [112] 3 6 2 1 6 5 5 1 2 5 5 3 4 6 1 5 1 1 4 2 1 4 5 5 4 1 4 6 6 5 6 1 5 6 6 2 5
##  [149] 6 3 5 5 4 4 6 5 6 6 2 5 4 2 1 1 4 1 5 6 2 3 5 1 6 1 6 1 1 5 6 6 5 2 1 1 2
##  [186] 2 6 5 1 5 1 6 6 4 5 5 5 5 4 1 1 1 6 5 6 6 2 3 1 5 5 5 1 4 4 6 4 5 6 1 6 4
##  [223] 5 5 6 2 6 1 1 1 4 6 6 2 2 5 6 4 6 2 1 2 1 2 3 1 3 2 6 1 1 2 1 4 4 2 6 2 2
##  [260] 5 5 6 3 1 1 5 6 4 6 1 2 3 2 6 4 2 6 6 6 6 6 1 6 2 1 2 4 4 2 2 6 4 5 5 3 6
##  [297] 1 6 6 4 6 2 6 1 2 4 5 2 6 6 4 2 2 1 6 6 4 1 6 1 1 1 4 1 1 4 5 4 6 6 6 6 1
##  [334] 3 6 4 4 5 6 4 4 3 1 4 6 4 1 4 2 2 6 2 6 2 2 5 2 5 1 1 1 1 4 5 1 3 1 5 1 1
##  [371] 5 1 4 1 1 1 2 1 4 3 5 2 2 2 1 3 1 5 1 1 6 1 6 6 6 6 4 6 2 1 2 2 1 1 4 6 1
##  [408] 6 4 5 1 2 1 6 4 1 5 4 1 1 3 6 2 5 1 2 2 5 4 4 1 2 1 5 5 1 6 1 2 3 5 6 3 3
##  [445] 3 1 6 1 2 5 6 1 5 4 2 3 1 5 6 2 6 2 6 5 3 6 4 1 5 1 4 6 6 3 2 2 5 6 1 6 5
##  [482] 6 6 5 2 1 2 6 1 4 1 4 5 1 5 2 5 4 3 5 5 5 2 5 2 1 1 6 1 1 6 1 5 1 1 6 6 6
##  [519] 6 4 5 6 6 4 2 3 2 5 2 2 1 5 4 4 4 2 1 1 1 5 6 6 5 6 1 4 5 1 1 5 1 2 1 2 5
##  [556] 5 6 1 1 4 6 6 5 1 6 4 2 1 6 6 5 5 4 3 5 6 6 1 1 6 5 2 1 2 1 2 6 6 6 1 2 2
##  [593] 1 1 4 6 6 5 1 2 1 1 6 4 6 6 2 6 4 6 5 1 5 5 2 6 3 4 5 1 2 3 4 6 5 1 4 2 1
##  [630] 2 6 5 5 2 2 6 2 5 6 5 6 6 1 2 1 5 5 4 5 1 6 6 6 2 2 5 6 6 1 2 6 4 1 1 1 4
##  [667] 4 1 6 3 1 1 5 1 6 6 4 1 2 2 1 4 1 4 1 5 6 5 1 4 4 5 5 2 5 5 1 1 6 3 6 6 6
##  [704] 6 1 2 5 1 5 5 2 5 4 2 5 1 6 1 5 4 1 1 3 5 1 1 4 1 1 3 1 2 6 2 2 2 2 3 6 2
##  [741] 6 6 5 5 2 3 5 6 1 2 4 2 6 4 1 4 6 4 1 6 1 5 5 5 2 5 2 4 4 4 4 1 5 6 2 5 6
##  [778] 5 1 1 4 5 6 4 4 2 6 1 6 1 1 2 5 1 6 1 2 4 1 1 5 5 5 6 2 1 4 2 2 6 5 1 6 6
##  [815] 4 6 5 2 2 2 4 5 6 5 6 1 5 2 6 5 3 6 1 1 2 3 6 5 2 1 4 1 2 6 1 6 5 1 4 4 2
##  [852] 1 6 1 5 1 1 4 5 6 1 4 4 1 1 3 2 1 2 2 4 5 5 5 6 1 6 1 2 6 1 1 5 4 2 6 4 5
##  [889] 6 6 5 6 2 5 6 5 1 5 1 6 6 2 5 5 2 4 2 1 6 6 5 2 5 1 3 4 4 5 6 1 2 1 6 4 5
##  [926] 2 6 3 2 1 4 1 5 6 2 3 4 5 6 5 6 5 6 1 2 5 5 5 2 6 4 6 1 2 1 1 2 1 4 3 3 3
##  [963] 6 6 4 2 4 5 4 4 5 6 1 3 1 6 5 2 6 4 4 5 6 4 4 1 5 4 6 5 5 1 2 1 1 6 2 1 1
## [1000] 3 1 5 5 2 1 6 3 5 1 6 1 6 2 1 4 4 6 5 1 1 4 1 6 1 2 4 5 4 1 6 2 5 2 4 1 5
## [1037] 6 6 1 5 1 4 6 2 4 1 1 4 3 1 4 4 1 6 6 6 2 5 2 1 3 6 6 6 6 6 5 6 1 2 1 6 3
## [1074] 1 5 2 5 5 6 4 1 5 4 1 6 5 5 1 3 1 2 1 5 2 4 6 5 5 4 4 2 2 3 1 4 5 1 3 5 1
## [1111] 2 1 6 1 6 2 5 2 1 4 4 4 2 6 1 5 1 2 6 1 5 5 2 3 6 6 6 1 1 6 5 5 4 6 6 2 6
## [1148] 2 1 5 1 1 1 6 5 4 5 6 5 1 2 4 6 5 6 6 2 5 2 5 1 5 6 2 5 5 2 1 5 4 1 1 4 1
## [1185] 1 5 2 2 3 5 5 1 6 2 4 4 3 2 1 6 1 4 5 5 4 1 6 6 5 1 5 6 1 5 4 5 6 6 5 6 5
## [1222] 6 4 1 2 5 6 6 2 6 1 3 4 6 3 4 4 1 1 5 4 4 2 2 1 1 2 1 5 5 6 6 6 2 2 1 1 4
## [1259] 5 6 1 6 4 1 2 4 6 2 6 5 1 5 1 6 6 1 6 6 2 1 4 1 6 5 2 1 5 4 1 5 4 1 6 6 2
## [1296] 6 5 1 6 2 6 5 6 1 3 2 1 4 6 5 5 6 2 6 2 1 2 1 1 6 5 6 5 4 4 2 4 6 1 6 2 5
## [1333] 2 2 1 1 3 6 5 1 1 2 4 4 1 6 2 5 6 4 1 3 3 1 2 4 2 5 6 1 4 6 6 6 5 1 3 6 6
## [1370] 4 6 1 1 2 1 4 2 5 1 1 3 6 6 5 1 2 6 3 6 5 5 1 6 4 4 4 3 6 4 4 6 2 6 3 5 1
## [1407] 1 6 2 1 1 6 4 4 1 1 6 3 4 6 6 1 2 6 1 1 4 1 1 5 5 4 6 1 6 5 3 6 5 1 2 6 6
## [1444] 6 2 5 2 6 6 5 1 1 6 3 6 6 1 2 1 6 5 1 6 1 1 1 6 1 2 5 6 2 3 1 1 1 6 5 4 5
## [1481] 4 1 5 1 1 4 1 5 1 4 5 2 6 5 4 6 1 1 1 1 1 2 5 2 2 5 1 6 6 2 6 1 6 4 6 1 6
## [1518] 4 6 1 4 6 3 2 1 2 1 4 6 5 6 6 5 4 6 1 5 6 5 6 1 6 5 1 1 1 4 3 2 2 4 6 2 2
## [1555] 6 1 6 2 1 6 1 4 1 4 6 1 4 3 2 2 6 5 5 4 1 5 1 5 1 6 1 5 5 6 4 1 1 6 5 5 1
## [1592] 1 6 6 5 5 6 6 6 6 6 2 5 2 1 1 4 6 5 5 5 5 1 6 6 6 5 4 6 4 3 6 6 1 5 5 2 2
## [1629] 6 1 6 6 6 6 1 1 2 5 1 6 6 5 5 3 4 6 6 1 2 5 1 6 4 1 6 5 5 5 6 4 5 1 6 1 6
## [1666] 2 2 2 6 2 5 1 5 1 6 6 3 5 1 5 1 1 6 1 6 5 4 6 1 4 6 2 1 1 5 5 6 6 5 5 4 2
## [1703] 1 6 1 6 4 5 6 3 1 6 5 6 5 5 6 2 6 5 6 4 4 4 3 2 3 1 6 5 1 6 1 6 1 2 3 4 1
## [1740] 6 1 6 1 6 6 6 2 6 1 2 6 2 6 2 6 5 2 2 6 2 1 6 2 1 4 6 2 6 6 6 2 2 3 4 2 2
## [1777] 4 1 2 5 5 5 6 2 5 4 6 1 5 1 5 5 6 5 6 4 1 4 6 5 4 1 5 1 5 5 2 5 2 5 5 2 1
## [1814] 6 5 5 6 5 4 5 2 5 6 6 1 2 1 4 4 5 5 1 4 2 6 4 2 5 3 5 6 1 6 6 6 1 6 1 5 6
## [1851] 5 6 1 2 4 2 5 5 2 5 5 6 4 6 2 1 2 1 2 6 4 5 5 2 1 1 3 1 1 1 1 2 4 6 4 2 6
## [1888] 2 5 6 2 1 6 5 2 6 2 2 5 4 4 4 2 2 1 5 6 2 1 3 4 6 3 6 5 5 2 2 5 6 5 2 1 1
## [1925] 4 5 6 1 6 1 4 5 5 5 4 6 1 4 5 5 4 6 1 5 4 5 1 5 5 4 2 4 4 6 4 1 6 5 4 5 1
## [1962] 5 5 1 6 6 6 6 2 4 2 2 5 6 4 6 6 5 4 6 6 1 1 5 6 1 6 1 4 1 3 6 1 2 2 4 6 6
## [1999] 2 6 4 1 6 2 3 2 4 1 4 2 4 4 4 6 4 5 1 1 2 6 1 5 1 6 4 5 5 1 5 1 5 2 4 6 2
## [2036] 1 4 1 2 2 6 6 5 2 2 1 1 1 5 3 6 5 6 5 6 3 1 2 4 2 1 2 1 3 5 1 6 2 4 1 2 1
## [2073] 6 6 5 5 2 6 5 6 1 5 6 1 1 5 1 6 1 5 1 6 1 4 1 2 5 2 3 6 4 5 6 3 2 1 5 4 6
## [2110] 1 4 5 2 1 4 1 1 6 2 5 6 1 6 1 1 1 1 1 1 2 6 1 1 1 4 1 2 2 2 3 6 5 5 4 1 1
## [2147] 6 6 2 2 1 4 1 1 1 4 1 1 1 5 4 1 3 5 3 6 4 2 5 5 5 1 1 6 5 5 3 2 6 6 1 6 2
## [2184] 6 3 5 6 1 4 4 1 1 6 4 1 1 5 1 2 1 5 6 4 1 1 5 2 5 4 1 4 5 4 3 1 5 2 5 1 1
## [2221] 5 4 1 6 4 5 6 6 5 1 1 4 6 4 4 5 1 6 3 6 1 6 4 3 1 6 4 5 1 1 1 2 5 3 1 1 1
## [2258] 2 2 1 1 1 2 6 1 6 2 1 2 4 6 5 5 4 1 5 1 6 6 5 2 5 4 2 5 6 1 1 4 1 6 6 1 1
## [2295] 1 2 5 2 6 1 4 1 5 1 1 5 4 6 4 2 5 5 2 4 2 5 2 4 6 1 6 3 1 2 6 2 6 6 5 6 2
## [2332] 6 1 5 6 6 4 4 1 6 1 6 6 5 1 6 2 6 2 5 5 6 5 6 1 6 6 6 6 2 4 1 2 5 1 1 6 5
## [2369] 6 6 2 5 1 4 1 6 5 5 2 1 6 5 5 2 4 6 2 6 2 4 2 1 1 4 6 2 6 1 5 1 1 5 5 6 4
## [2406] 5 5 2 6 2 5 5 2 3 1 2 1 5 2 5 6 2 5 6 2 6 1 1 4 4 6 2 6 5 4 5 1 1 6 4 1 4
## [2443] 2 1 1 1 5 5 1 2 1 2 5 4 5 2 1 1 5 4 5 1 2 1 3 6 6 5 6 2 5 6 2 2 1 6 1 5 1
## [2480] 5 3 1 6 5 4 6 1 6 1 4 6 6 1 2 1 2 4 1 6 2 2 3 1 1 2 6 5 1 4 1 1 4 2 6 5 5
## [2517] 2 5 2 1 2 5 4 6 6 1 5 6 4 4 5 1 5 2 6 5 1 6 5 5 1 1 4 1 5 3 5 3 6 6 1 5 2
## [2554] 2 1 6 3 4 4 2 1 5 6 6 2 2 4 2 6 6 4 4 3 3 6 1 2 2 1 1 3 6 4 5 4 4 6 2 5 5
## [2591] 6 2 5 4 1 5 6 5 2 1 5 6 4 6 5 6 6 6 6 5 3 2 1 6 1 2 2 6 2 4 1 1 2 1 5 5 4
## [2628] 4 1 1 1 2 1 2 2 3 5 6 6 1 6 1 6 1 1 2 1 1 1 1 1 5 6 2 1 5 1 3 1 1 1 1 3 2
## [2665] 2 6 2 2 6 6 5 5 5 6 2 2 1 3 1 6 5 4 2 4 3 6 6 6 4 5 6 5 2 5 6 5 6 6 3 6 2
## [2702] 1 6 5 2 4 6 2 6 6 6 6 5 5 6 2 4 2 2 5 5 5 6 1 4 6 1 4 4 2 4 3 2 2 4 5 6 1
## [2739] 5 2 4 1 2 6 6 1 2 1 4 2 2 5 1 1 6 1 2 5 6 4 1 6 4 1 4 1 2 1 1 3 2 2 3 2 5
## [2776] 1 5 3 4 1 6 1 1 1 6 1 1 5 4 6 4 5 1 1 6 2 3 3 6 5 1 4 1 5 4 5 1 6 1 6 4 1
## [2813] 1 5 6 4 3 6 2 1 4 6 1 1 2 6 3 6 5 4 2 4 4 5 1 5 6 5 3 5 4 2 6 6 2 5 5 6 1
## [2850] 5 6 6 1 5 2 2 4 5 2 3 6 5 2 5 4 5 4 1 3 2 4 4 6 1 1 4 1 2 5 2 5 5 6 6 6 2
## [2887] 4 2 1 5 3 1 1 6 6 1 1 6 2 6 1 6 4 4 4 6 1 4 1 1 5 6 3 1 6 6 1 1 6 2 1 5 1
## [2924] 6 1 4 3 4 5 5 1 6 4 5 1 4 5 2 1 4 5 6 6 5 6 3 5 1 1 4 3 5 2 1 5 2 6 1 2 1
## [2961] 5 6 5 1 2 6 2 6 6 2 5 2 2 5 6 2 6 6 2 4 6 1 1 6 3 4 5 4 2 1 4 1 6 2 6 4 2
## [2998] 1 6 4 1 5 1 5 6 6 5 5 5 5 5 2 2 4 6 5 1 1 6 1 5 1 5 4 5 5 6 6 6 5 2 2 5 5
## [3035] 1 1 4 1 5 5 4 6 1 6 6 1 5 2 6 6 5 6 6 1 1 6 5 6 5 2 4 5 1 1 5 5 2 4 4 2 2
## [3072] 6 1 1 5 4 2 5 5 1 1 6 2 6 5 1 5 5 4 6 6 1 5 5 1 2 3 6 2 4 2 5 1 1 6 6 4 1
## [3109] 4 2 5 6 5 6 2 2 4 1 2 4 5 6 6 4 4 5 1 1 1 1 4 1 1 5 5 6 5 5 4 5 5 1 2 5 5
## [3146] 5 6 6 1 1 2 5 1 2 1 6 1 5 4 1 4 1 6 5 6 4 6 1 2 6 2 1 2 1 4 1 5 5 6 2 1 6
## [3183] 3 6 1 1 2 1 5 4 2 6 6 3 6 4 2 6 1 5 3 2 6 4 6 2 5 5 1 4 1 1 4 6 6 6 2 2 3
## [3220] 6 3 6 6 4 5 1 6 4 6 5 1 6 4 4 6 1 6 6 4 5 4 6 5 1 1 5 6 6 6 6 2 2 2 3 1 5
## [3257] 4 4 1 1 5 2 1 2 1 6 1 4 6 2 1 6 6 5 4 6 4 5 5 6 4 1 6 5 4 5 2 6 1 5 6 4 5
## [3294] 6 4 5 2 4 4 4 1 6 1 2 1 6 6 1 2 6 1 1 2 2 5 1 1 5 1 2 1 1 5 6 1 6 6 4 6 5
## [3331] 5 5 1 1 2 5 5 5 1 4 5 5 1 6 6 5 6 6 6 5 6 5 4 1 5 2 5 4 6 2 1 5 1 2 6 2 4
## [3368] 2 6 6 4 6 5 6 6 1 5 2 2 1 6 4 5 6 2 1 1 6 2 2 6 5 2 4 5 6 6 6 4 6 1 1 2 4
## [3405] 4 1 5 3 1 5 1 5 2 1 1 1 3 1 2 2 5 1 5 3 4 5 6 6 6 3 6 5 2 1 2 1 2 1 1 5 6
## [3442] 4 2 2 2 5 5 2 6 6 5 6 5 5 5 1 6 1 5 2 4 2 1 4 5 1 2 2 6 2 1 1 4 4 6 6 1 2
## [3479] 1 2 4 6 1 6 4 2 4 1 6 6 4 6 6 2 2 5 5 5 5 3 4 6 4 6 6 3 6 6 1 2 2 6 2 3 1
## [3516] 4 6 6 1 5 6 2 1 1 2 1 1 1 1 5 4 1 6 3 1 2 1 6 1 1 2 4 3 5 1 5 5 5 5 2 2 6
## [3553] 6 5 6 1 5 2 1 5 3 1 2 1 4 6 5 3 5 1 3 4 5 6 3 1 2 2 5 6 4 5 5 6 1 6 6 1 6
## [3590] 5 6 2 5 4 1 2 6 4 4 6 2 5 1 5 6 2 6 1 4 6 4 1 2 4 2 1 4 5 2 2 1 4 5 1 4 2
## [3627] 1 1 6 5 4 1 5 4 6 5 6 6 6 2 1 6 2 5 1 2 5 2 1 3 1 1 4 1 3 6 6 3 4 6 6 2 1
## [3664] 2 5 1 5 1 4 6 1 6 4 1 5 2 6 5 6 1 2 5 4 5 1 2 4 5 2 5 1 6 6 1 6 5 2 6 2 1
## [3701] 4 5 6 2 6 5 2 5 2 3 2 5 6 1 4 1 3 2 4 6 3 5 6 2 4 1 1 2 2 2 5 5 6 5 6 5 6
## [3738] 2 2 6 5 6 1 5 4 2 4 6 5 1 1 6 1 4 1 5 1 6 6 6 5 4 1 1 4 2 6 5 6 4 6 1 2 5
## [3775] 3 2 4 5 5 2 5 1 5 3 6 1 2 1 5 1 5 1 2 2 4 4 5 4 1 6 5 6 6 5 1 2 6 1 3 5 2
## [3812] 2 2 1 1 2 4 6 6 1 5 1 1 2 5 2 1 2 1 1 5 1 4 2 1 3 2 1 2 4 5 2 2 6 6 1 6 5
## [3849] 5 1 6 1 2 1 6 1 2 4 4 6 6 6 6 4 2 6 4 5 1 6 5 4 5 6 6 6 6 4 1 1 2 1 5 2 5
## [3886] 2 6 5 6 1 2 2 6 5 5 1 5 4 1 6 4 5 3 4 5 6 6 2 1 3 3 2 6 1 3 2 2 6 5 3 1 2
## [3923] 6 6 5 6 2 6 1 3 5 6 5 6 6 6 1 4 1 1 4 6 1 1 6 1 3 2 4 6 6 1 1 1 2 5 1 1 6
## [3960] 1 6 2 6 3 4 6 2 6 6 4 1 2 4 6 2 5 6 3 1 6 1 1 4 6 1 3 6 6 2 5 2 1 2 4 5 6
## [3997] 6 4 5 2 4 1 6 2 1 5 5 5 4 5 1 6 5 2 4 2 6 6 6 6 5 2 3 6 6 6 5 2 3 1 5 6 2
## [4034] 4 2 5 5 2 5 6 6 2 6 1 1 3 4 1 4 5 1 1 2 3 6 1 1 6 1 6 2 6 1 2 1 6 1 3 4 1
## [4071] 5 1 1 1 6 6 2 6 1 2 1 4 1 5 1 6 5 5 4 5 1 1 5 5 4 1 1 2 1 4 2 2 4 6 6 1 3
## [4108] 1 1 5 2 3 4 2 4 1 2 3 1 3 1 5 1 5 1 3 4 2 6 1 1 5 1 1 6 1 2 6 2 1 1 1 1 1
## [4145] 5 6 6 4 5 1 6 4 1 5 5 1 5 1 1 4 1 6 2 2 1 2 5 3 1 1 1 1 5 2 6 5 1 5 6 1 1
## [4182] 5 1 5 2 2 2 1 5 6 5 2 6 5 1 1 5 6 1 5 2 3 4 1 6 5 5 1 6 1 1 4 1 6 6 1 6 5
## [4219] 5 2 5 4 1 3 5 3 3 3 1 6 6 1 5 6 2 5 1 1 6 5 2 1 1 6 2 6 1 1 4 6 5 6 5 2 1
## [4256] 2 1 2 4 1 6 1 4 4 3 6 1 5 5 5 4 2 5 6 2 1 5 3 5 1 2 4 5 2 4 6 3 5 1 2 4 3
## [4293] 6 2 4 5 1 3 4 1 1 4 1 5 4 6 1 4 1 6 5 5 6 5 1 1 5 5 5 1 6 1 2 1 6 1 6 6 1
## [4330] 2 6 3 4 5 1 6 2 2 4 5 6 3 6 5 4 5 1 3 2 5 1 6 3 4 5 1 2 4 1 1 5 6 5 5 5 5
## [4367] 5 1 1 5 6 3
## Levels: 1 2 3 4 5 6
res.pca <- prcomp(df_mod6[,c("rec_bins","freq_bins","mon_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(df_mod6$cluster)
# Data inspection


k_mod6=kmeans(rfm_bin[,c("mon_bins","rec_bins","freq_bins")],centers=6)
df_mod6=cbind(rfm_bin[,c("mon_bins","rec_bins","freq_bins")],"cluster"=k_mod6$cluster)
df_mod6$cluster=as.factor(df_mod6$cluster)
head(df_mod6)
##   mon_bins rec_bins freq_bins cluster
## 1        1        5         1       5
## 2        5        1         5       4
## 3        4        3         2       6
## 4        4        2         3       6
## 5        2        5         1       5
## 6        3        2         4       3
head(k_mod6)
## $cluster
##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## 
## $centers
##   mon_bins rec_bins freq_bins
## 1 2.456845 4.694940  2.514881
## 2 1.546137 2.133047  1.566524
## 3 2.753459 1.942138  2.977358
## 4 4.532882 1.663443  4.966151
## 5 1.179666 4.837047  1.178273
## 6 4.687783 2.022624  2.579186
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 1063.0625 1167.3938  988.6088 1482.0754  308.9387  350.2081
## 
## $tot.withinss
## [1] 5360.287
## 
## $betweenss
## [1] 23390.09
df_mod6$cluster
##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## Levels: 1 2 3 4 5 6
res.pca <- prcomp(df_mod6[,c("mon_bins","rec_bins","freq_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(df_mod6$cluster)

Data inspection

eigenvalue <- round(get_eigenvalue(res.pca), 1)
variance.percent <- eigenvalue$variance.percent
head(eigenvalue)
##       eigenvalue variance.percent cumulative.variance.percent
## Dim.1        2.1             71.5                        71.5
## Dim.2        0.6             20.5                        92.0
## Dim.3        0.2              8.0                       100.0
ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
  size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +  stat_mean(aes(color = cluster), size = 4)

Percentage of variance explained by dimensions

eigenvalue <- round(get_eigenvalue(res.pca), 1)
variance.percent <- eigenvalue$variance.percent
head(eigenvalue)
##       eigenvalue variance.percent cumulative.variance.percent
## Dim.1        2.1             71.5                        71.5
## Dim.2        0.6             20.5                        92.0
## Dim.3        0.2              8.0                       100.0

Visualize k-means clusters

Color individuals according to the cluster groups

Add concentration ellipses

Add cluster centroid using the stat_mean() [ggpubr] R function

ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
   size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +
  stat_mean(aes(color = cluster), size = 4)

library(ggplot2)
head(k_mod6)
## $cluster
##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## 
## $centers
##   mon_bins rec_bins freq_bins
## 1 2.456845 4.694940  2.514881
## 2 1.546137 2.133047  1.566524
## 3 2.753459 1.942138  2.977358
## 4 4.532882 1.663443  4.966151
## 5 1.179666 4.837047  1.178273
## 6 4.687783 2.022624  2.579186
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 1063.0625 1167.3938  988.6088 1482.0754  308.9387  350.2081
## 
## $tot.withinss
## [1] 5360.287
## 
## $betweenss
## [1] 23390.09
head(df_mod6)
##   mon_bins rec_bins freq_bins cluster
## 1        1        5         1       5
## 2        5        1         5       4
## 3        4        3         2       6
## 4        4        2         3       6
## 5        2        5         1       5
## 6        3        2         4       3
library(plotly)
## Warning: package 'plotly' was built under R version 4.0.5
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following objects are masked from 'package:plyr':
## 
##     arrange, mutate, rename, summarise
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
head(df_mod6)
##   mon_bins rec_bins freq_bins cluster
## 1        1        5         1       5
## 2        5        1         5       4
## 3        4        3         2       6
## 4        4        2         3       6
## 5        2        5         1       5
## 6        3        2         4       3
nrow(df_mod6)
## [1] 4372
df_mod6$cluster
##    [1] 5 4 6 6 5 3 5 1 5 6 4 3 4 4 5 4 1 3 1 2 4 6 3 5 3 2 1 4 3 4 6 1 2 5 4 2 3
##   [38] 3 3 4 4 6 1 5 5 2 1 4 6 4 4 1 3 3 1 4 4 1 2 3 1 4 1 3 1 3 4 4 2 4 4 4 3 6
##   [75] 5 4 4 5 2 4 2 3 1 2 4 5 4 2 1 2 6 4 6 3 1 3 3 3 3 1 4 4 4 4 3 4 4 3 2 4 4
##  [112] 6 4 3 5 4 2 2 1 3 2 2 6 4 4 5 2 5 5 1 3 5 1 2 2 1 5 3 4 4 2 4 1 2 4 4 3 2
##  [149] 4 6 2 2 1 3 4 2 4 4 3 2 3 3 5 5 3 5 2 4 3 6 2 1 4 5 4 1 5 2 4 4 2 3 5 5 3
##  [186] 3 4 2 1 2 1 4 4 1 2 2 2 2 1 1 1 1 4 2 4 4 3 6 1 2 2 2 5 3 3 4 3 2 4 1 4 3
##  [223] 2 2 4 3 4 5 1 1 1 4 4 3 3 2 4 4 4 3 1 3 5 3 6 1 6 3 4 1 1 2 5 1 1 2 4 3 3
##  [260] 2 2 4 6 5 5 2 4 1 4 5 2 6 3 4 3 3 4 4 4 4 4 5 4 3 5 3 1 3 2 3 4 3 2 2 6 4
##  [297] 1 4 4 1 4 3 4 1 3 1 2 2 4 4 3 3 3 1 4 4 3 1 4 5 1 5 1 5 5 3 2 1 4 4 4 4 5
##  [334] 6 4 1 1 2 4 6 3 6 1 1 4 1 1 3 3 3 4 3 4 3 3 2 2 2 1 5 1 1 3 2 5 6 1 2 1 1
##  [371] 2 5 1 1 5 1 3 5 3 6 2 3 2 3 5 6 5 2 1 1 4 5 4 4 4 4 3 4 3 1 3 3 1 1 1 4 5
##  [408] 4 1 2 5 3 1 4 1 5 2 1 5 5 6 4 3 2 5 2 3 2 3 3 5 3 5 2 2 5 4 5 3 6 2 4 6 6
##  [445] 6 1 4 5 3 2 4 1 2 3 3 6 5 2 4 3 4 3 4 2 6 4 1 5 2 1 1 4 4 6 3 3 2 4 5 4 2
##  [482] 4 4 2 3 5 3 4 5 1 5 1 2 1 2 3 2 1 6 2 2 2 3 2 3 1 1 4 5 5 4 1 2 5 5 4 4 4
##  [519] 4 3 2 4 4 3 3 6 3 2 3 3 5 2 3 1 3 3 5 1 1 2 4 4 2 4 1 3 2 5 5 2 5 3 5 3 2
##  [556] 2 4 5 5 1 4 4 2 5 4 6 2 5 4 4 2 2 4 6 2 4 4 5 5 4 2 3 5 3 5 3 4 4 4 1 3 3
##  [593] 5 1 1 4 4 2 5 3 5 5 4 1 4 4 3 4 1 4 2 5 2 2 2 4 6 1 2 5 3 6 1 4 2 5 1 3 1
##  [630] 3 4 2 2 3 3 4 3 2 4 2 4 4 5 3 5 2 2 1 2 5 4 4 4 3 3 2 4 4 1 3 4 3 5 5 5 3
##  [667] 1 5 4 6 5 5 2 5 4 4 3 1 3 3 1 1 5 1 5 2 4 2 1 1 1 2 2 3 2 2 1 5 4 6 4 4 4
##  [704] 4 5 3 2 5 2 2 3 2 1 3 2 5 4 1 2 1 5 5 6 2 5 1 1 5 1 6 5 3 4 3 2 3 3 6 4 2
##  [741] 4 4 2 2 3 6 2 4 1 3 1 2 4 3 1 1 4 1 1 4 1 2 2 2 3 2 2 3 1 3 1 1 2 4 3 2 4
##  [778] 2 1 5 1 2 4 3 1 3 4 5 4 1 1 3 2 5 4 1 3 3 1 1 2 2 2 4 3 5 1 3 2 4 2 5 4 4
##  [815] 1 4 2 2 3 3 3 2 4 2 4 1 2 3 4 2 6 4 5 5 3 6 4 2 3 5 3 1 3 4 5 4 2 1 1 1 3
##  [852] 5 4 5 2 5 1 3 2 4 5 3 1 5 1 6 2 1 3 3 1 2 2 2 4 1 4 5 3 4 5 5 2 3 3 4 3 2
##  [889] 4 4 2 4 3 2 4 2 1 2 1 4 4 3 2 2 3 1 3 5 4 4 2 3 2 5 6 3 1 2 4 1 3 5 4 1 2
##  [926] 3 4 6 2 5 1 5 2 4 2 6 3 2 4 2 4 2 4 5 3 2 2 2 3 4 3 4 1 3 5 5 3 5 4 6 6 6
##  [963] 4 4 3 3 3 2 3 1 2 4 5 6 1 4 2 3 4 1 1 2 4 1 3 5 2 1 4 2 2 5 3 1 5 4 3 5 5
## [1000] 6 5 2 2 3 5 4 6 2 5 4 5 4 3 1 1 1 4 2 5 5 1 5 4 5 3 1 2 6 5 4 3 2 3 1 1 2
## [1037] 4 4 1 2 1 3 4 3 1 5 5 1 6 5 1 1 5 4 4 4 3 2 3 5 6 4 4 4 4 4 2 4 5 3 5 4 6
## [1074] 5 2 3 2 2 4 1 1 2 6 5 4 2 2 5 6 5 3 5 2 3 3 4 2 2 1 1 3 3 6 5 3 2 5 6 2 1
## [1111] 3 5 4 5 4 2 2 3 1 3 3 6 3 4 5 2 5 3 4 1 2 2 3 6 4 4 4 1 1 4 2 2 3 4 4 3 4
## [1148] 3 1 2 1 1 5 4 2 1 2 4 2 5 2 1 4 2 4 4 2 2 3 2 5 2 4 3 2 2 2 1 2 3 5 1 1 1
## [1185] 5 2 3 3 6 2 2 5 4 3 1 4 6 2 1 4 5 3 2 2 1 5 4 4 2 5 2 4 5 2 3 2 4 4 2 4 2
## [1222] 4 3 5 3 2 4 4 3 4 5 6 1 4 6 1 1 5 1 2 3 4 3 2 1 1 2 5 2 2 4 4 4 3 3 1 5 3
## [1259] 2 4 5 4 1 5 3 1 4 3 4 2 5 2 1 4 4 5 4 4 3 5 3 5 4 2 3 1 2 1 5 2 1 5 4 4 2
## [1296] 4 2 5 4 3 4 2 4 5 6 3 5 3 4 2 2 4 2 4 3 5 3 5 5 4 2 4 2 1 3 3 1 4 1 4 3 2
## [1333] 3 3 1 5 6 4 2 5 5 3 3 1 5 4 3 2 4 1 5 6 6 5 3 1 2 2 4 1 3 4 4 4 2 5 6 4 4
## [1370] 3 4 1 5 3 5 3 2 2 1 5 6 4 4 2 5 3 4 6 4 2 2 1 4 1 1 1 6 4 3 1 4 3 4 6 2 5
## [1407] 5 4 3 5 5 4 1 1 5 5 4 6 1 4 4 5 3 4 1 1 1 1 5 2 2 3 4 5 4 2 6 4 2 5 3 4 4
## [1444] 4 3 2 3 4 4 2 5 5 4 6 4 4 5 3 5 4 2 1 4 1 5 5 4 1 3 2 4 3 6 1 5 5 4 2 1 2
## [1481] 1 1 2 5 5 1 5 2 5 3 2 3 4 2 6 4 5 5 5 1 5 3 2 3 3 2 5 4 4 3 4 5 4 3 4 1 4
## [1518] 1 4 5 6 4 6 3 1 3 5 3 4 2 4 4 2 3 4 5 2 4 2 4 1 4 2 5 5 5 1 6 3 3 3 4 3 2
## [1555] 4 1 4 2 5 4 5 1 5 4 4 5 1 6 3 3 4 2 2 3 5 2 1 2 1 4 5 2 2 4 3 1 5 4 2 2 1
## [1592] 1 4 4 2 2 4 4 4 4 4 3 2 3 5 1 3 4 2 2 2 2 5 4 4 4 2 3 4 1 6 4 4 5 2 2 2 3
## [1629] 4 5 4 4 4 4 1 1 3 2 1 4 4 2 2 6 3 4 4 1 3 2 5 4 1 5 4 2 2 2 4 1 2 5 4 5 4
## [1666] 3 3 3 4 3 2 1 2 1 4 4 6 2 5 2 1 1 4 1 4 2 1 4 5 3 4 3 5 1 2 2 4 4 2 2 1 3
## [1703] 1 4 5 4 3 2 4 6 1 4 2 4 2 2 4 3 4 2 4 1 1 1 6 3 6 5 4 2 5 4 5 4 5 3 6 1 5
## [1740] 4 5 4 5 4 4 4 2 4 5 3 4 3 4 3 4 2 3 3 4 3 5 4 3 5 1 4 3 4 4 4 2 3 6 1 3 3
## [1777] 1 1 3 2 2 2 4 3 2 1 4 5 2 1 2 2 4 2 4 1 5 3 4 2 1 1 2 5 2 2 3 2 3 2 2 3 5
## [1814] 4 2 2 4 2 1 2 3 2 4 4 5 3 5 1 3 2 2 5 1 3 4 1 3 2 6 2 4 5 4 4 4 5 4 5 2 4
## [1851] 2 4 1 3 3 3 2 2 3 2 2 4 1 4 3 5 3 1 3 4 3 2 2 3 1 1 6 1 5 5 1 3 3 4 1 3 4
## [1888] 3 2 4 3 1 4 2 2 4 3 3 2 3 1 1 3 3 5 2 4 3 5 6 1 4 6 4 2 2 3 2 2 4 2 3 5 1
## [1925] 3 2 4 5 4 5 1 2 2 2 3 4 5 1 2 2 3 4 5 2 1 2 1 2 2 1 3 4 1 4 3 5 4 2 3 2 5
## [1962] 2 2 1 4 4 4 4 3 3 3 3 2 4 1 4 4 2 3 4 4 1 5 2 4 5 4 1 3 5 6 4 5 3 3 1 4 4
## [1999] 3 4 3 5 4 3 6 3 1 5 1 3 1 3 1 4 1 2 5 5 3 4 1 2 1 4 1 2 2 1 2 5 2 3 1 4 3
## [2036] 5 1 1 3 3 4 4 2 3 3 5 5 1 2 6 4 2 4 2 4 6 1 3 1 3 5 3 5 6 2 5 4 3 1 1 2 1
## [2073] 4 4 2 2 3 4 2 4 5 2 4 1 5 2 1 4 5 2 5 4 5 3 1 3 2 2 6 4 1 2 4 6 3 5 2 3 4
## [2110] 5 3 2 3 1 3 5 1 4 3 2 4 5 4 5 5 1 5 1 5 3 4 1 1 5 4 5 3 3 3 6 4 2 2 6 1 5
## [2147] 4 4 3 3 1 3 5 5 1 1 5 5 5 2 1 5 6 2 6 4 3 3 2 2 2 5 5 4 2 2 6 3 4 4 5 4 2
## [2184] 4 6 2 4 1 3 3 5 1 4 3 5 1 2 5 2 5 2 4 3 1 1 2 3 2 1 1 1 2 3 6 1 2 2 2 5 5
## [2221] 2 1 5 4 1 2 4 4 2 5 5 1 4 3 4 2 5 4 6 4 5 4 4 6 5 4 1 2 1 5 5 3 2 6 5 5 5
## [2258] 3 3 1 1 5 3 4 5 4 3 5 3 1 4 2 2 3 5 2 5 4 4 2 3 2 3 3 2 4 1 5 3 5 4 4 5 5
## [2295] 1 3 2 3 4 5 1 1 2 1 5 2 1 4 3 3 2 2 3 1 2 2 3 1 4 1 4 6 5 3 4 3 4 4 2 4 3
## [2332] 4 1 2 4 4 1 1 5 4 5 4 4 2 5 4 2 4 3 2 2 4 2 4 5 4 4 4 4 3 1 5 2 2 5 5 4 2
## [2369] 4 4 3 2 5 3 5 4 2 2 3 5 4 2 2 3 1 4 3 4 3 1 3 5 5 3 4 3 4 1 2 1 5 2 2 4 1
## [2406] 2 2 3 4 3 2 2 3 6 5 3 5 2 3 2 4 3 2 4 3 4 1 1 1 3 4 3 4 2 3 2 5 1 4 4 1 1
## [2443] 3 1 1 1 2 2 1 3 1 3 2 1 2 3 5 5 2 4 2 5 3 5 6 4 4 2 4 3 2 4 3 3 5 4 5 2 5
## [2480] 2 6 1 4 2 1 4 5 4 5 3 4 4 5 3 1 2 1 5 4 3 3 6 5 5 2 4 2 5 3 5 5 1 3 4 2 2
## [2517] 3 2 3 5 3 2 1 4 4 5 2 4 3 3 2 5 2 3 4 2 1 4 2 2 5 5 1 1 2 6 2 6 4 4 1 2 3
## [2554] 2 1 4 6 3 1 3 5 2 4 4 3 3 4 3 4 4 1 1 6 6 4 5 3 3 5 1 6 4 1 2 3 1 4 3 2 2
## [2591] 4 3 2 3 5 2 4 2 3 5 2 4 1 4 2 4 4 4 4 2 6 3 1 4 5 3 3 4 3 1 1 1 3 1 2 2 1
## [2628] 1 5 5 5 3 5 3 3 6 2 4 4 5 4 5 4 5 1 3 1 1 5 5 5 2 4 3 5 2 1 6 5 5 5 5 6 3
## [2665] 2 4 3 3 4 4 2 2 2 4 3 2 5 6 5 4 2 1 3 3 6 4 4 4 1 2 4 2 3 2 4 2 4 4 6 4 3
## [2702] 5 4 2 3 1 4 3 4 4 4 4 2 2 4 3 1 3 2 2 2 2 4 1 1 4 1 3 1 2 3 6 3 3 1 2 4 5
## [2739] 2 3 1 5 3 4 4 5 3 1 1 3 3 2 1 5 4 5 3 2 4 1 1 4 3 1 1 5 3 5 5 6 3 3 6 3 2
## [2776] 5 2 6 3 1 4 5 5 5 4 1 5 2 3 4 3 2 5 5 4 3 6 6 4 2 1 3 5 2 3 2 1 4 5 4 1 1
## [2813] 5 2 4 1 6 4 2 5 3 4 5 5 3 4 6 4 2 1 3 1 1 2 5 2 4 2 6 2 3 2 4 4 3 2 2 4 1
## [2850] 2 4 4 1 2 3 3 3 2 3 6 4 2 3 2 1 2 1 5 6 3 1 3 4 5 5 3 1 3 2 3 2 2 4 4 4 3
## [2887] 1 3 5 2 6 1 5 4 4 1 5 4 3 4 5 4 3 3 1 4 1 1 1 1 2 4 6 5 4 4 5 5 4 3 5 2 5
## [2924] 4 1 1 6 3 2 2 5 4 1 2 5 1 2 2 5 1 2 4 4 2 4 6 2 5 5 1 6 2 3 5 2 3 4 5 3 5
## [2961] 2 4 2 5 3 4 3 4 4 3 2 3 3 2 4 3 4 4 3 3 4 1 1 4 6 3 2 3 3 5 3 1 4 3 4 1 3
## [2998] 1 4 1 5 2 5 2 4 4 2 2 2 2 2 3 3 1 4 2 5 1 4 5 2 5 2 1 2 2 4 4 4 2 3 3 2 2
## [3035] 5 5 1 5 2 2 4 4 5 4 4 5 2 3 4 4 2 4 4 5 1 4 2 4 2 2 3 2 5 1 2 2 3 3 1 3 3
## [3072] 4 5 1 2 1 3 2 2 5 5 4 3 4 2 5 2 2 1 4 4 5 2 2 1 3 6 4 2 1 3 2 5 5 4 4 1 5
## [3109] 1 3 2 4 2 4 3 2 3 5 2 1 2 4 4 1 3 2 5 5 5 5 3 5 5 2 2 4 2 2 3 2 2 5 3 2 2
## [3146] 2 4 4 5 5 3 2 1 2 5 4 5 2 3 5 3 1 4 2 4 3 4 5 3 4 3 5 3 1 1 5 2 2 4 3 1 4
## [3183] 6 4 5 5 2 5 2 3 2 4 4 6 4 3 3 4 5 2 6 3 4 3 4 3 2 2 1 3 1 5 1 4 4 4 3 3 6
## [3220] 4 6 4 4 1 2 5 4 1 4 2 5 4 3 1 4 1 4 4 3 2 3 4 2 5 5 2 4 4 4 4 3 3 3 6 5 2
## [3257] 1 1 5 5 2 3 5 3 1 4 5 1 4 3 1 4 4 2 3 4 3 2 2 4 1 1 4 2 1 2 3 4 5 2 4 1 2
## [3294] 4 1 2 3 1 1 1 5 4 5 2 5 4 4 1 3 4 1 1 2 3 2 5 5 2 5 3 1 5 2 4 1 4 4 3 4 2
## [3331] 2 2 5 1 2 2 2 2 5 1 2 2 5 4 4 2 4 4 4 2 4 2 3 5 2 3 2 1 4 3 1 2 1 3 4 2 1
## [3368] 3 4 4 3 4 2 4 4 5 2 3 3 5 4 4 2 4 3 5 5 4 3 3 4 2 3 3 2 4 4 4 1 4 1 1 3 3
## [3405] 1 5 2 6 1 2 5 2 3 5 5 5 6 1 2 3 2 5 2 6 1 2 4 4 4 6 4 2 2 5 3 5 3 1 5 2 4
## [3442] 3 3 3 3 2 2 3 4 4 2 4 2 2 2 5 4 1 2 2 3 3 1 3 2 5 3 3 4 2 1 1 3 1 4 4 1 3
## [3479] 5 3 3 4 5 4 1 3 3 5 4 4 1 4 4 3 3 2 2 2 2 6 1 4 1 4 4 6 4 4 5 3 3 4 3 6 5
## [3516] 1 4 4 5 2 4 3 5 5 2 1 5 5 1 2 1 5 4 6 1 3 1 4 1 5 3 1 6 2 1 2 2 2 2 3 3 4
## [3553] 4 2 4 5 2 3 5 2 6 5 3 5 1 4 2 6 2 5 6 1 2 4 6 5 3 3 2 4 1 2 2 4 5 4 4 5 4
## [3590] 2 4 3 2 1 1 3 4 1 1 4 2 2 5 2 4 2 4 5 1 4 3 5 2 1 3 5 1 2 3 3 5 1 2 5 1 3
## [3627] 1 1 4 2 1 5 2 1 4 2 4 4 4 3 5 4 3 2 1 3 2 3 1 6 5 5 3 5 6 4 4 6 1 4 4 3 5
## [3664] 2 2 5 2 5 4 4 5 4 1 5 2 3 4 2 4 5 3 2 1 2 5 3 1 2 3 2 1 4 4 5 4 2 3 4 3 1
## [3701] 1 2 4 3 4 2 2 2 2 6 3 2 4 5 1 5 6 3 1 4 6 2 4 3 4 5 1 3 3 3 2 2 4 2 4 2 4
## [3738] 3 3 4 2 4 1 2 1 3 3 4 2 1 5 4 5 4 5 2 5 4 4 4 2 1 5 5 1 3 4 2 4 3 4 5 3 2
## [3775] 6 3 1 2 2 3 2 1 2 6 4 5 2 5 2 1 2 5 3 2 4 1 2 1 1 4 2 4 4 2 5 3 4 5 6 2 3
## [3812] 3 3 5 5 3 3 4 4 5 2 5 5 3 2 2 5 3 5 5 2 5 1 3 1 6 3 5 2 1 2 3 3 4 4 1 4 2
## [3849] 2 5 4 5 3 1 4 5 3 1 1 4 4 4 4 3 3 4 1 2 5 4 2 1 2 4 4 4 4 3 5 5 3 1 2 3 2
## [3886] 3 4 2 4 1 2 3 4 2 2 5 2 1 5 4 1 2 6 1 2 4 4 3 5 6 6 2 4 1 6 3 3 4 2 6 5 3
## [3923] 4 4 2 4 3 4 5 6 2 4 2 4 4 4 5 1 5 5 1 4 1 5 4 1 6 3 1 4 4 5 5 5 2 2 5 5 4
## [3960] 5 4 3 4 6 3 4 3 4 4 3 1 3 3 4 2 2 4 6 5 4 5 5 1 4 5 6 4 4 3 2 3 5 3 1 2 4
## [3997] 4 1 2 2 1 5 4 3 5 2 2 2 1 2 5 4 2 3 1 3 4 4 4 4 2 3 6 4 4 4 2 2 6 5 2 4 3
## [4034] 1 2 2 2 3 2 4 4 3 4 5 5 6 3 1 4 2 5 5 2 6 4 5 1 4 5 4 3 4 5 3 1 4 5 6 1 5
## [4071] 2 5 1 5 4 4 2 4 5 3 5 1 5 2 5 4 2 2 1 2 5 5 2 2 3 5 1 2 1 3 3 3 3 4 4 5 6
## [4108] 5 1 2 2 6 1 3 3 5 3 6 5 6 5 2 5 2 5 6 3 3 4 1 5 2 5 5 4 5 3 4 3 1 1 5 1 5
## [4145] 2 4 4 1 2 5 4 1 1 2 2 5 2 1 5 1 5 4 3 3 5 2 2 6 5 5 5 5 2 2 4 2 5 2 4 5 5
## [4182] 2 5 2 3 3 3 5 2 4 2 3 4 2 5 5 2 4 1 2 2 6 1 1 4 2 2 5 4 1 5 6 5 4 4 1 4 2
## [4219] 2 3 2 1 5 6 2 6 6 6 1 4 4 5 2 4 3 2 1 5 4 2 2 5 5 4 3 4 5 5 1 4 2 4 2 3 5
## [4256] 3 1 3 3 5 4 5 1 1 6 4 5 2 2 2 1 2 2 4 2 1 2 6 2 5 3 1 2 3 3 4 6 2 1 3 1 6
## [4293] 4 3 1 2 5 6 3 5 5 3 5 2 1 4 5 1 5 4 2 2 4 2 1 5 2 2 2 1 4 5 3 1 4 5 4 4 5
## [4330] 3 4 6 4 2 5 4 3 3 1 2 4 6 4 2 1 2 1 6 3 2 5 4 6 4 2 5 3 3 5 5 2 4 2 2 2 2
## [4367] 2 5 5 2 4 6
## Levels: 1 2 3 4 5 6
plot_ly(x=df_mod6$rec_bins, y=df_mod6$freq_bins, z=df_mod6$mon_bins, type="scatter3d", mode="markers", color=df_mod6$cluster)
head(df_mod6,15)
##    mon_bins rec_bins freq_bins cluster
## 1         1        5         1       5
## 2         5        1         5       4
## 3         4        3         2       6
## 4         4        2         3       6
## 5         2        5         1       5
## 6         3        2         4       3
## 7         1        5         1       5
## 8         3        5         3       1
## 9         2        5         1       5
## 10        5        2         3       6
## 11        5        2         5       4
## 12        3        1         2       3
## 13        5        1         5       4
## 14        5        3         5       4
## 15        1        5         1       5
df_cluster1=df_mod6[df_mod6==1,]
nrow(df_cluster1)
## [1] 3971
df_cluster2=df_mod6[df_mod6==2,]
nrow(df_cluster2)
## [1] 4254
df_cluster3=df_mod6[df_mod6==3,]
nrow(df_cluster3)
## [1] 3559
df_cluster4=df_mod6[df_mod6==4,]
nrow(df_cluster4)
## [1] 1678
df_cluster5=df_mod6[df_mod6==5,]
nrow(df_cluster5)
## [1] 3805
df_cluster6=df_mod6[df_mod6==6,]
nrow(df_cluster6)
## [1] 221

#hierarchical clustering

#scaling the variables in hierarchical clustering

df_scale=scale(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],center=TRUE,scale=TRUE)


summary(df_scale)
##     rec_bins         freq_bins          mon_bins      
##  Min.   :-1.1989   Min.   :-1.1800   Min.   :-1.1951  
##  1st Qu.:-1.1989   1st Qu.:-1.1800   1st Qu.:-0.6712  
##  Median :-0.5400   Median :-0.5097   Median :-0.1472  
##  Mean   : 0.0000   Mean   : 0.0000   Mean   : 0.0000  
##  3rd Qu.: 0.7778   3rd Qu.: 0.8310   3rd Qu.: 0.3768  
##  Max.   : 1.4367   Max.   : 1.5014   Max.   : 1.5994
dist_mat <- dist(df_scale, method = 'euclidean')

#plotting dendrogram

hclust_avg <- hclust(dist_mat, method = 'ward.D2')
plot(hclust_avg)

#creating the required number of clusters

member = cutree(hclust_avg,6)

h_clust=rfm_bin
h_clust$cluster=member

#plotting the clusters formed using hierarchical clustering

library(cluster)
res.pca <- prcomp(h_clust[,c("mon_bins","rec_bins","freq_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(h_clust$cluster)
# Data inspection



ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
  size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +
  stat_mean(aes(color = cluster), size = 4)

#shiloutte analysis

df6_scale=data.frame(scale(rfm_bin[,c("mon_bins","rec_bins","freq_bins")],center=TRUE,scale=TRUE))
k_mod6_1=kmeans(df6_scale,centers=6,nstart=25)
k_mod6_1
## K-means clustering with 6 clusters of sizes 829, 872, 1091, 688, 561, 331
## 
## Cluster means:
##      mon_bins   rec_bins   freq_bins
## 1 -0.87489870 -0.3714783 -0.81533013
## 2  1.54976773 -0.8512784  1.36225682
## 3 -0.88392573  1.3279575 -0.83286360
## 4  0.12801777 -0.8655820 -0.11505324
## 5  0.39766913  0.6990949  0.03761136
## 6  0.08183663 -0.5897375  1.37381141
## 
## Clustering vector:
##    [1] 3 2 5 4 3 6 3 5 3 2 2 4 2 2 3 2 3 4 3 1 2 4 5 3 4 4 5 2 5 2 4 5 1 3 2 1 6
##   [38] 5 5 2 2 4 5 3 3 1 5 2 4 2 2 5 5 5 3 2 2 5 1 4 5 2 5 5 3 4 2 2 1 2 2 2 5 5
##   [75] 3 2 2 3 1 2 1 5 3 1 2 3 2 4 5 1 5 2 5 5 5 4 4 4 4 5 2 2 2 2 5 2 2 4 4 2 2
##  [112] 2 2 4 3 2 1 1 3 4 1 1 2 5 2 3 1 3 3 5 4 3 5 1 1 5 3 5 2 2 1 2 3 1 2 2 4 1
##  [149] 2 5 1 1 5 5 2 1 2 2 4 1 5 4 3 3 5 3 1 2 6 4 1 3 2 3 2 3 3 1 2 2 1 4 3 3 4
##  [186] 6 2 1 3 1 3 2 2 5 1 1 1 1 5 3 3 3 2 1 2 2 4 2 3 1 4 1 3 6 5 2 5 1 2 3 2 5
##  [223] 1 1 2 4 2 3 3 3 5 2 2 4 4 1 2 5 2 4 3 4 3 4 5 3 4 4 2 3 3 4 3 5 5 4 2 4 4
##  [260] 1 1 2 4 3 3 1 2 5 2 3 4 2 4 2 5 4 2 2 2 2 2 3 2 4 3 4 5 5 4 4 2 5 1 1 2 2
##  [297] 3 2 2 5 2 4 2 3 4 5 1 4 2 2 5 4 4 3 2 2 5 3 2 3 3 3 5 3 3 5 1 6 2 2 2 2 3
##  [334] 5 2 5 5 1 2 5 6 2 3 5 2 5 3 5 4 4 2 4 2 4 4 1 4 1 3 3 3 3 5 1 3 4 3 1 3 3
##  [371] 1 3 5 3 3 3 4 3 5 5 1 6 4 4 3 4 3 1 3 3 2 3 6 2 2 2 5 6 4 3 4 4 3 3 5 6 3
##  [408] 2 5 1 3 6 3 2 5 3 1 3 3 3 5 6 4 1 3 4 4 1 5 5 3 4 3 1 1 3 2 3 4 2 1 2 2 4
##  [445] 2 3 2 3 4 1 2 3 1 5 4 2 3 1 2 6 2 4 6 1 5 6 5 3 1 3 6 2 2 4 4 4 1 2 3 2 1
##  [482] 2 6 1 4 3 6 2 3 5 3 5 1 3 1 4 1 3 2 1 1 1 4 1 4 3 3 2 3 3 2 3 1 3 3 6 2 2
##  [519] 2 5 1 2 2 5 4 5 4 4 6 4 3 1 5 5 5 4 3 3 3 1 2 2 1 2 3 5 1 3 3 1 3 4 3 4 1
##  [556] 1 2 3 3 5 6 2 1 3 2 5 4 3 2 2 1 1 5 4 1 2 2 3 3 2 1 4 3 4 3 4 6 2 2 3 4 4
##  [593] 3 3 5 2 2 1 3 4 3 3 6 5 2 2 4 2 5 2 1 3 1 1 4 2 4 5 1 3 4 4 5 6 1 3 5 4 3
##  [630] 4 6 1 1 4 4 2 4 1 2 1 2 2 3 4 3 1 1 5 1 3 2 2 2 4 4 1 6 2 3 4 6 5 3 3 3 5
##  [667] 5 3 2 4 3 3 1 3 2 6 5 3 4 4 3 5 3 3 3 1 2 1 3 5 5 1 1 4 1 1 3 3 2 5 2 2 2
##  [704] 2 3 6 1 3 1 1 4 1 5 4 1 3 2 3 1 5 3 3 2 1 3 3 5 3 3 2 3 4 6 4 4 4 4 2 2 4
##  [741] 2 6 1 1 4 2 1 2 3 4 5 4 2 5 3 5 2 5 3 2 3 1 1 1 4 1 4 5 5 5 3 3 1 2 4 1 2
##  [778] 1 3 3 5 1 2 5 5 6 2 3 2 3 3 4 1 3 2 3 4 5 3 3 1 1 1 2 4 3 5 4 4 2 1 3 2 2
##  [815] 5 2 1 1 4 4 5 1 2 1 2 3 1 4 2 1 2 2 3 3 4 4 2 1 4 3 5 3 6 2 3 2 1 3 5 5 4
##  [852] 3 2 3 1 3 3 5 1 2 3 5 5 3 3 2 4 3 4 4 5 1 1 1 2 3 2 3 4 2 3 3 1 5 4 2 5 1
##  [889] 2 6 1 2 4 1 2 1 3 1 3 2 2 4 1 1 6 6 4 3 2 2 1 6 1 3 5 5 3 1 6 3 4 3 2 5 1
##  [926] 4 2 4 4 3 5 3 1 2 4 2 5 1 2 1 6 1 2 3 6 1 1 1 6 6 5 6 3 4 3 3 4 3 5 2 2 5
##  [963] 2 6 5 4 6 1 5 3 1 2 3 4 3 2 1 4 2 5 3 1 2 5 5 3 1 3 2 1 1 3 4 3 3 2 4 3 3
## [1000] 4 3 1 1 4 3 2 2 1 3 2 3 2 4 3 5 3 2 1 3 3 5 3 6 3 4 5 1 5 3 2 4 1 4 5 3 1
## [1037] 2 6 3 1 3 5 2 4 5 3 3 5 5 3 5 5 3 2 2 2 4 1 4 3 5 6 2 2 2 6 1 2 3 4 3 6 4
## [1074] 3 1 4 4 1 2 5 3 1 5 3 2 1 1 3 4 3 4 3 1 4 5 2 1 1 5 3 6 4 4 3 5 1 3 2 1 3
## [1111] 4 3 6 3 2 4 1 4 5 6 6 5 4 2 3 1 3 4 2 3 1 1 4 4 2 2 2 3 3 6 1 1 5 2 2 4 2
## [1148] 4 3 1 3 3 3 2 1 5 1 2 1 3 4 5 2 1 2 2 4 1 4 1 3 1 2 4 1 1 4 3 1 5 3 3 5 3
## [1185] 3 1 4 4 2 1 1 3 2 4 5 5 4 4 3 6 3 5 1 1 5 3 2 2 1 3 1 2 3 1 5 1 2 2 1 2 1
## [1222] 2 5 3 4 1 2 2 4 2 3 4 5 2 2 5 5 3 3 1 5 5 4 4 3 3 4 3 1 1 2 2 2 4 4 3 3 5
## [1259] 1 2 3 6 5 3 4 3 2 4 2 1 3 1 5 2 2 3 2 2 4 3 5 3 6 1 4 3 1 5 3 1 5 3 6 2 1
## [1296] 2 1 3 2 6 2 1 2 3 5 4 3 5 2 1 1 2 4 2 4 3 4 3 3 2 1 2 1 5 5 4 3 2 3 2 4 1
## [1333] 4 4 3 3 4 2 1 3 3 4 5 5 3 2 4 1 2 5 3 5 5 3 4 5 4 1 2 3 5 2 6 2 1 3 2 2 2
## [1370] 5 2 3 3 4 3 5 1 1 3 3 2 2 2 1 3 4 2 4 2 1 1 3 2 5 5 6 2 2 5 5 2 4 6 2 1 3
## [1407] 3 2 4 3 3 2 5 5 3 3 2 2 5 2 2 3 4 2 3 3 5 3 3 1 1 5 2 3 2 1 4 2 1 3 4 2 2
## [1444] 2 4 1 4 2 2 1 3 3 6 5 2 2 3 4 3 2 1 3 6 3 3 3 2 3 4 1 2 4 4 3 3 3 2 1 5 1
## [1481] 5 3 1 3 3 5 3 1 3 5 1 4 2 1 5 2 3 3 3 3 3 4 1 6 4 1 3 2 2 4 2 3 2 5 2 3 2
## [1518] 5 6 3 5 2 5 6 3 4 3 6 2 1 2 6 1 5 2 3 1 2 1 6 3 2 4 3 3 3 5 2 4 4 6 6 4 4
## [1555] 6 3 6 1 3 2 3 5 3 5 2 3 5 2 4 4 2 1 1 5 3 4 3 1 3 2 3 1 1 6 5 3 3 2 1 1 3
## [1592] 3 2 6 1 1 2 2 6 2 2 6 1 4 3 3 5 2 1 1 1 4 3 2 2 2 1 6 2 5 4 2 2 3 1 1 4 4
## [1629] 6 3 2 2 2 2 3 3 4 1 3 6 2 1 1 2 5 2 2 5 4 1 3 2 5 3 6 1 1 1 6 5 1 3 6 3 6
## [1666] 6 6 4 2 4 1 3 1 3 2 2 4 1 3 1 3 3 2 3 6 1 5 2 3 5 6 4 3 3 1 1 2 2 1 1 5 4
## [1703] 3 2 3 6 6 1 2 2 3 6 1 2 1 1 6 6 6 1 2 5 5 5 4 6 2 3 2 1 3 6 3 2 3 4 2 5 3
## [1740] 2 3 6 3 2 2 2 4 6 3 4 2 6 2 4 2 1 4 4 6 4 3 6 4 3 3 2 4 2 2 2 4 4 2 5 4 4
## [1777] 5 3 4 1 1 1 2 4 1 5 2 3 1 3 1 1 2 1 2 5 3 5 2 1 5 3 1 3 1 1 4 1 4 1 1 4 3
## [1814] 2 1 1 2 1 5 1 4 1 2 2 3 4 3 5 5 1 1 3 3 4 2 5 4 1 4 1 6 3 2 2 2 3 2 3 1 2
## [1851] 1 2 3 4 5 4 1 1 4 1 1 2 5 2 4 3 6 3 4 6 5 1 1 4 5 3 5 3 3 3 3 4 5 2 3 4 6
## [1888] 6 1 2 4 3 2 1 4 2 4 4 1 5 5 5 4 4 3 1 2 4 3 5 5 2 5 2 1 1 4 4 1 2 1 4 3 3
## [1925] 5 1 2 3 6 3 5 1 1 1 5 6 3 5 1 1 5 2 3 1 3 1 3 1 1 3 4 5 5 2 6 3 6 1 6 1 3
## [1962] 1 1 3 2 6 2 2 4 5 4 4 1 6 5 2 2 1 6 6 2 3 3 1 2 3 2 3 6 3 4 6 3 4 6 5 2 6
## [1999] 6 2 5 3 2 4 5 6 5 3 5 4 5 5 5 2 5 1 3 3 4 2 3 1 3 2 5 1 1 3 1 3 1 4 5 2 6
## [2036] 3 5 3 4 4 2 2 1 4 4 3 3 3 1 5 2 1 2 1 6 2 3 4 5 4 3 4 3 5 1 3 2 4 5 3 4 3
## [2073] 2 2 1 1 4 2 1 2 3 1 6 3 3 1 3 2 3 1 3 2 3 5 3 4 1 4 2 2 5 1 2 4 4 3 1 6 2
## [2110] 3 5 1 4 3 5 3 3 2 4 1 2 3 6 3 3 3 3 3 3 4 2 3 3 3 5 3 6 4 4 4 6 1 1 5 3 3
## [2147] 2 2 4 4 3 5 3 3 3 5 3 3 3 1 5 3 4 1 2 2 5 4 1 1 1 3 3 2 1 1 2 4 2 2 3 2 4
## [2184] 2 5 1 2 3 5 5 3 3 2 5 3 3 1 3 4 3 1 2 5 3 3 1 4 4 5 3 5 1 5 5 3 1 4 1 3 3
## [2221] 1 3 3 2 5 1 2 2 1 3 3 5 6 5 5 1 3 2 5 2 3 6 5 4 3 2 3 1 3 3 3 4 1 2 3 3 3
## [2258] 4 4 5 3 3 4 6 3 2 6 3 4 3 2 1 1 5 3 1 3 6 6 1 4 1 5 4 1 6 3 3 5 3 2 6 3 3
## [2295] 3 4 1 4 6 3 3 3 1 3 3 1 5 2 5 4 1 1 4 5 4 1 4 5 2 3 2 2 3 4 2 4 2 6 4 2 4
## [2332] 2 3 1 2 6 3 5 3 6 3 2 2 1 3 2 4 2 4 1 1 6 1 2 3 2 6 2 6 4 3 3 4 1 3 3 2 1
## [2369] 2 6 4 1 3 5 3 2 1 1 4 3 6 1 1 4 5 2 4 2 6 5 4 3 3 5 2 4 6 3 4 3 3 1 1 2 5
## [2406] 1 1 4 2 4 1 1 4 5 3 4 3 1 4 1 2 4 1 6 4 2 3 3 5 5 2 4 2 1 5 1 3 3 2 5 3 5
## [2443] 4 3 3 3 1 1 5 4 3 4 1 5 1 6 3 3 1 5 1 3 4 3 2 2 6 1 2 4 1 6 4 4 3 2 3 1 3
## [2480] 1 2 3 2 1 5 6 3 2 3 5 6 2 3 4 3 4 5 3 2 6 4 2 3 3 4 2 1 3 5 3 3 5 4 2 1 1
## [2517] 4 1 4 3 4 1 5 2 2 3 1 2 6 5 1 3 1 4 2 1 3 2 1 1 3 3 5 3 1 2 1 2 2 6 3 1 4
## [2554] 4 3 2 5 6 6 4 3 1 2 2 4 4 5 4 6 2 5 5 4 5 2 3 4 4 3 3 5 6 5 1 5 5 2 4 1 1
## [2591] 2 4 1 5 3 1 2 1 6 3 1 2 5 2 1 6 6 2 6 1 4 4 3 2 3 4 6 2 6 5 3 3 4 3 1 1 3
## [2628] 3 3 3 3 4 3 4 6 2 1 6 6 3 6 3 6 3 3 6 3 3 3 3 3 1 2 4 3 1 3 5 3 3 3 3 5 4
## [2665] 4 2 4 4 2 2 1 1 1 6 4 4 3 4 3 2 1 5 4 5 5 2 6 2 5 1 6 1 4 1 2 1 6 2 4 2 6
## [2702] 3 2 1 4 3 2 6 2 6 6 6 1 1 2 4 3 6 1 1 1 1 2 3 5 2 3 5 5 4 5 4 4 4 5 1 6 3
## [2739] 1 4 5 3 4 2 6 3 4 3 3 6 4 1 3 3 2 3 4 1 2 5 3 6 5 3 5 3 4 3 3 5 4 4 4 4 1
## [2776] 3 1 4 5 3 6 3 3 3 2 3 3 1 5 6 5 1 3 3 2 4 4 5 2 1 3 5 3 1 5 1 3 2 3 2 5 3
## [2813] 3 1 2 5 4 2 4 3 5 2 3 3 4 2 4 2 1 5 4 5 5 1 3 1 2 1 5 1 5 4 2 2 4 1 1 2 3
## [2850] 1 6 2 3 1 4 6 5 1 4 5 2 1 4 1 5 1 5 3 2 6 5 6 6 3 3 5 3 4 1 4 1 1 2 2 2 4
## [2887] 5 4 3 1 5 3 3 2 2 3 3 2 4 6 3 2 5 5 5 6 3 3 3 3 1 6 5 3 6 6 3 3 2 4 3 1 3
## [2924] 2 3 3 4 5 1 1 3 2 5 1 3 5 1 4 3 6 1 2 2 1 6 2 1 3 3 6 2 1 4 3 1 4 6 3 4 3
## [2961] 1 2 1 3 4 2 4 2 6 4 1 4 4 1 6 4 6 6 6 6 6 3 3 2 5 6 1 5 4 3 5 3 2 6 6 5 4
## [2998] 3 2 3 3 1 3 1 2 2 1 1 1 1 1 4 6 5 2 1 3 3 2 3 1 3 1 3 1 1 6 6 2 1 6 4 1 1
## [3035] 3 3 5 3 1 1 5 2 3 2 6 3 1 4 6 6 1 6 6 3 3 2 1 2 1 4 5 1 3 3 1 1 4 5 5 6 6
## [3072] 2 3 3 1 5 4 4 1 3 3 6 4 6 1 3 1 1 5 2 2 3 1 1 3 4 4 6 4 5 4 1 3 3 2 2 5 3
## [3109] 5 4 1 2 1 2 4 4 5 3 4 5 1 2 6 5 5 1 3 3 3 3 5 3 3 1 1 2 1 1 5 1 1 3 4 1 1
## [3146] 1 2 2 3 3 4 1 3 4 3 2 3 1 5 3 5 3 2 1 2 5 2 3 4 2 4 3 4 3 5 3 1 1 2 4 3 2
## [3183] 2 6 3 3 4 3 1 5 4 6 2 4 2 6 4 2 3 1 5 4 2 5 2 4 1 1 3 5 5 3 5 2 2 2 6 4 5
## [3220] 2 4 2 2 5 1 3 2 3 2 1 3 2 5 5 6 3 6 2 5 1 5 2 1 3 3 1 2 6 2 2 4 4 6 4 3 1
## [3257] 5 6 3 3 1 4 3 4 3 2 3 5 2 4 3 6 2 1 5 2 5 1 1 2 5 3 2 1 6 1 6 2 3 1 6 3 1
## [3294] 6 5 1 4 5 6 5 3 6 3 4 3 2 2 3 6 2 3 3 4 4 1 3 3 1 3 4 3 3 1 2 3 2 2 5 2 1
## [3331] 1 1 3 3 4 1 1 1 3 5 1 1 3 6 2 1 2 2 6 1 6 1 5 3 1 6 1 5 6 6 3 1 3 6 6 1 5
## [3368] 4 2 2 5 6 1 6 2 3 1 4 6 3 6 5 1 2 4 3 3 2 4 4 2 1 4 5 1 2 2 2 5 2 3 3 4 5
## [3405] 5 3 1 2 3 1 3 1 6 3 3 3 4 3 4 4 1 3 1 4 5 1 2 2 2 4 2 1 4 3 6 3 4 3 3 1 2
## [3442] 5 4 4 4 1 1 4 2 2 4 6 1 1 1 3 6 5 1 4 5 4 3 5 1 3 4 6 2 4 3 3 5 5 2 2 3 4
## [3479] 3 4 5 2 3 2 3 4 5 3 2 2 5 2 6 4 4 1 1 1 1 2 5 2 6 2 2 2 2 2 3 4 4 6 4 4 3
## [3516] 5 2 6 3 1 6 4 3 3 4 3 3 3 3 1 5 3 2 4 3 4 3 2 3 3 4 5 4 1 3 1 1 1 1 4 6 2
## [3553] 2 1 2 3 1 4 3 1 2 3 4 3 5 6 1 2 1 3 2 5 1 2 4 3 4 6 1 2 5 1 1 2 3 2 6 3 2
## [3590] 1 2 4 1 3 3 4 2 5 5 2 4 1 3 1 6 4 2 3 5 2 5 3 1 5 4 3 5 1 6 4 3 5 1 3 6 4
## [3627] 3 5 2 1 5 3 1 5 6 1 6 6 6 6 3 2 4 1 3 4 1 4 3 2 3 3 5 3 4 2 2 4 5 6 6 4 3
## [3664] 4 1 3 1 3 5 2 3 2 5 3 1 4 2 1 6 3 4 1 5 4 3 4 3 1 6 1 3 2 2 3 6 1 4 6 4 3
## [3701] 3 1 2 4 2 1 1 1 1 4 4 1 2 3 3 3 4 4 5 2 2 1 2 6 5 3 3 4 4 4 4 1 2 1 2 1 2
## [3738] 4 4 2 1 2 3 1 3 4 5 2 1 3 3 2 3 5 3 1 3 2 2 2 1 3 3 3 5 4 6 1 6 5 2 3 4 1
## [3775] 4 4 5 1 1 4 1 3 1 2 2 3 4 3 1 3 4 3 4 4 5 5 1 3 3 2 1 2 2 1 3 4 6 3 4 1 4
## [3812] 4 4 3 3 4 5 2 2 3 1 3 3 4 1 4 3 6 3 3 1 3 3 4 5 2 6 3 4 5 1 4 4 6 2 3 6 1
## [3849] 1 3 2 3 4 3 2 3 4 6 5 2 6 2 2 5 4 2 5 1 3 2 1 3 1 6 2 2 2 6 3 3 4 3 1 4 1
## [3886] 4 2 1 2 3 4 4 2 1 1 3 1 5 3 2 5 1 5 5 1 2 2 4 3 2 5 4 2 3 4 4 4 2 1 2 3 4
## [3923] 2 2 1 2 4 2 3 5 1 2 1 2 2 2 3 5 3 3 5 2 3 3 2 3 4 4 5 2 2 3 3 3 4 1 3 3 2
## [3960] 3 2 4 2 5 5 2 4 2 2 5 3 4 5 2 4 1 2 2 3 2 3 3 5 2 3 4 2 2 6 1 4 3 4 3 1 2
## [3997] 2 5 1 1 6 3 6 4 3 1 1 1 5 1 3 2 1 4 3 4 6 2 6 6 1 4 2 2 6 2 1 4 5 3 1 2 4
## [4034] 5 4 1 1 4 1 6 2 4 2 3 3 5 5 3 5 1 3 3 4 2 2 3 3 2 3 2 6 2 3 4 3 2 3 5 5 3
## [4071] 1 3 3 3 6 6 1 6 3 4 3 5 3 1 3 6 1 1 5 1 3 3 1 1 5 3 3 4 3 5 4 6 5 2 6 3 4
## [4108] 3 3 1 4 4 5 4 5 3 4 2 3 4 3 1 3 1 3 2 5 4 2 3 3 1 3 3 6 3 6 2 4 3 3 3 3 3
## [4145] 1 6 2 3 1 3 6 5 3 1 1 3 1 3 3 5 3 6 4 4 3 1 1 5 3 3 3 3 1 1 6 1 3 1 6 3 3
## [4182] 1 3 1 6 4 6 3 1 2 1 6 2 1 3 3 1 2 3 1 4 2 5 5 2 1 1 3 2 3 3 5 3 2 2 3 2 4
## [4219] 1 4 1 5 3 5 1 2 5 5 3 6 2 3 1 2 4 1 3 3 2 1 4 3 3 6 4 2 3 3 5 2 1 6 1 4 3
## [4256] 4 3 4 5 3 2 3 5 5 2 2 3 1 1 1 5 4 1 6 4 3 1 4 1 3 4 5 1 4 5 2 5 1 3 4 5 4
## [4293] 2 4 3 1 3 2 5 3 3 5 3 1 6 2 3 5 3 2 1 1 2 1 3 3 1 1 1 3 2 3 4 3 2 3 2 2 3
## [4330] 4 2 2 5 1 3 6 4 4 5 1 2 5 2 1 5 1 3 5 6 1 3 2 4 5 1 3 4 5 3 3 1 2 1 1 1 1
## [4367] 1 3 3 1 2 4
## 
## Within cluster sum of squares by cluster:
## [1] 425.9603 365.4587 416.1030 344.4632 577.9936 163.7479
##  (between_SS / total_SS =  82.5 %)
## 
## Available components:
## 
## [1] "cluster"      "centers"      "totss"        "withinss"     "tot.withinss"
## [6] "betweenss"    "size"         "iter"         "ifault"
head(df6_scale)
##     mon_bins   rec_bins  freq_bins
## 1 -1.1951472  1.4366635 -1.1800234
## 2  1.5994422 -1.1988522  1.5014019
## 3  0.9007949  0.1189056 -0.5096671
## 4  0.9007949 -0.5399733  0.1606893
## 5 -0.4964998  1.4366635 -1.1800234
## 6  0.2021475 -0.5399733  0.8310456
df6_scale$cluster=k_mod6_1$cluster

head(df6_scale)
##     mon_bins   rec_bins  freq_bins cluster
## 1 -1.1951472  1.4366635 -1.1800234       3
## 2  1.5994422 -1.1988522  1.5014019       2
## 3  0.9007949  0.1189056 -0.5096671       5
## 4  0.9007949 -0.5399733  0.1606893       4
## 5 -0.4964998  1.4366635 -1.1800234       3
## 6  0.2021475 -0.5399733  0.8310456       6
library(cluster)

s =silhouette(df6_scale$cluster, dist(df6_scale[,-4],method = 'euclidean'))

plot(s, col=1:3, border=NA)

the average silhoutte width is .43 ,more it is towards 1 the better

#Silhoutte analysis for hierarchical clustering

head(h_clust)
##   custid mon_bins freq_bins rec_bins tot_score cluster
## 1  12346        1         1        5  2.333333       1
## 2  12347        5         5        1  3.666667       2
## 3  12348        4         2        3  3.000000       3
## 4  12349        4         3        2  3.000000       3
## 5  12350        2         1        5  2.666667       1
## 6  12352        3         4        2  3.000000       3
s =silhouette(h_clust$cluster, dist(df6_scale,method = 'euclidean'))
plot(s, col=1:3, border=NA)

#the average silhoutte width is .33 # which is lesser thaan kmeans

#Increasing the number of clusters further

k_mod8=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=8)

df_mod8=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod8$cluster)
df_mod8$cluster=as.factor(df_mod8$cluster)

df_mod8$cluster
##    [1] 7 3 1 1 2 5 7 6 2 3 3 1 3 3 7 3 6 1 6 4 3 1 1 2 1 1 8 8 1 3 1 8 4 2 3 4 5
##   [38] 1 1 3 3 1 6 7 7 4 8 3 1 3 3 6 1 1 6 3 3 6 4 1 6 3 6 1 6 1 3 3 4 3 3 3 1 8
##   [75] 2 3 3 7 4 3 4 1 6 4 3 7 3 1 6 4 8 3 8 1 6 1 1 1 1 6 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 4 4 6 1 4 4 3 8 8 7 4 7 7 6 1 7 6 4 4 6 2 1 3 3 4 3 6 4 3 3 1 4
##  [149] 3 8 4 4 6 1 3 4 3 3 1 4 1 1 7 7 1 7 4 3 5 1 4 6 3 7 3 6 7 4 3 3 4 1 7 7 1
##  [186] 5 3 4 6 4 6 3 3 8 4 4 4 4 8 6 6 6 3 4 3 3 1 3 6 4 4 4 7 5 1 3 1 4 3 6 3 1
##  [223] 4 4 3 1 3 7 6 6 8 3 3 1 1 4 3 8 3 1 6 1 7 1 8 6 1 1 3 6 6 1 7 6 8 1 3 1 1
##  [260] 4 4 3 1 7 7 4 3 8 3 7 1 3 1 3 1 1 3 3 3 3 3 7 8 1 2 1 6 1 1 1 3 1 4 4 3 3
##  [297] 6 3 3 6 3 1 3 6 1 6 4 1 3 3 1 1 1 6 3 3 1 6 3 7 6 7 6 7 7 1 4 5 3 3 3 3 7
##  [334] 8 3 8 2 4 3 8 5 3 6 8 3 6 2 1 1 1 3 1 3 1 1 4 1 4 6 7 6 6 1 4 7 1 6 4 6 6
##  [371] 4 7 6 6 7 2 1 7 1 1 4 5 1 1 7 1 7 4 6 6 3 7 5 3 8 3 1 8 1 6 1 1 6 6 8 5 7
##  [408] 3 6 4 7 5 6 3 8 7 4 6 2 2 8 5 1 4 2 1 1 4 1 1 2 1 2 4 4 7 3 7 1 3 4 3 3 1
##  [445] 3 6 8 2 1 4 3 6 4 1 1 3 7 4 3 5 3 1 5 4 8 5 6 7 4 6 8 3 3 1 1 1 4 3 7 3 4
##  [482] 3 5 4 1 7 5 3 7 6 7 8 4 6 4 1 4 6 3 4 4 4 1 4 1 6 6 3 7 7 3 6 4 7 7 5 3 3
##  [519] 3 1 4 3 3 1 1 8 1 4 5 1 7 4 1 6 1 1 2 6 6 4 3 3 4 3 6 1 4 7 2 4 2 1 7 1 4
##  [556] 4 3 7 7 6 5 3 4 7 3 8 1 7 3 3 4 4 8 1 4 3 3 7 7 3 4 1 7 1 2 1 5 3 3 6 1 1
##  [593] 7 6 6 3 3 4 7 1 7 7 8 2 3 3 1 3 6 3 4 7 4 4 1 3 1 6 4 7 1 1 6 5 4 7 8 1 6
##  [630] 1 5 4 4 1 1 3 1 4 3 4 3 3 7 1 7 4 4 6 4 7 3 3 3 1 1 4 5 3 6 1 5 1 2 7 7 1
##  [667] 6 7 3 1 7 7 4 7 3 5 1 6 1 1 6 6 7 6 7 4 3 4 6 6 6 4 4 1 4 4 2 7 3 8 3 3 3
##  [704] 3 2 5 4 7 4 4 1 4 6 1 4 7 3 6 4 6 7 7 3 4 7 6 6 7 6 3 7 1 5 1 1 1 1 3 3 1
##  [741] 3 5 4 4 1 3 4 3 2 1 6 1 3 1 6 6 3 6 6 3 6 4 4 4 1 4 1 1 6 1 6 6 4 3 1 4 3
##  [778] 4 6 7 6 4 3 1 6 5 3 7 3 6 6 1 4 7 3 6 1 1 6 6 4 4 4 3 1 7 6 1 1 3 4 7 3 3
##  [815] 8 3 4 4 1 1 1 4 3 4 3 6 4 1 3 4 3 3 2 2 1 1 3 4 1 7 1 6 5 3 7 3 4 6 6 6 1
##  [852] 7 3 7 4 2 6 1 4 3 2 1 6 2 6 3 1 6 1 1 6 4 4 4 3 6 3 7 1 3 7 7 4 1 1 3 1 4
##  [889] 8 5 4 3 1 4 3 4 6 4 6 3 3 1 4 4 5 8 1 7 3 3 4 5 4 7 8 1 6 4 5 6 1 7 3 6 4
##  [926] 1 3 1 1 7 6 7 4 3 1 3 1 4 8 4 5 4 3 7 5 4 4 4 5 5 1 5 6 1 7 7 1 7 8 3 3 2
##  [963] 3 5 1 1 5 4 1 6 4 3 7 1 6 3 4 1 3 6 6 4 3 8 1 7 4 6 3 4 4 7 1 6 7 3 1 7 7
## [1000] 1 7 4 4 1 7 3 3 4 2 3 7 3 1 6 6 6 3 4 7 7 8 7 5 2 1 6 4 8 7 3 1 4 1 6 6 4
## [1037] 3 5 6 4 6 1 3 1 6 7 7 6 1 2 6 6 7 3 3 3 1 4 1 7 1 5 3 3 3 5 4 3 7 1 7 5 1
## [1074] 7 4 1 4 4 3 6 6 4 8 7 3 4 4 7 1 7 1 2 4 1 1 3 4 4 6 6 5 1 1 7 1 4 7 3 4 6
## [1111] 1 7 5 7 3 1 4 1 2 5 5 8 1 3 2 4 7 1 3 6 4 4 1 1 8 3 3 6 6 8 4 4 1 3 3 1 3
## [1148] 1 6 4 6 6 2 3 4 6 4 3 4 7 1 6 3 4 3 3 1 4 1 4 7 4 3 1 4 4 1 2 4 1 2 6 6 6
## [1185] 7 4 1 1 3 4 4 7 3 1 6 8 1 1 6 5 7 1 4 4 6 7 3 3 4 7 4 3 2 4 1 4 3 3 4 3 4
## [1222] 3 1 2 1 4 3 3 1 3 2 1 6 3 3 6 6 2 6 4 1 8 1 1 6 6 1 2 4 4 3 3 3 1 1 6 7 1
## [1259] 4 3 7 5 2 7 1 6 3 1 3 4 7 4 2 3 3 7 3 3 1 7 1 7 5 4 1 6 4 6 2 4 8 7 5 3 4
## [1296] 3 4 7 3 5 3 4 3 7 8 1 7 1 3 4 4 3 1 3 1 2 1 7 7 3 4 3 4 6 1 1 6 3 6 3 1 4
## [1333] 1 1 6 7 1 3 4 7 7 1 1 6 7 3 1 4 3 8 7 8 1 7 1 6 1 4 3 6 1 3 5 3 4 7 3 3 3
## [1370] 1 3 2 2 1 7 1 4 4 6 7 3 3 3 4 7 1 3 1 3 4 4 6 3 6 6 8 3 3 1 6 3 1 5 3 4 7
## [1407] 7 3 1 7 7 3 8 6 7 2 3 3 6 3 3 7 1 3 6 6 6 6 7 4 4 1 3 7 3 4 1 3 4 2 1 3 3
## [1444] 3 1 4 1 3 3 4 2 7 8 8 3 3 7 1 7 3 4 6 5 6 7 2 3 6 1 4 3 1 1 6 7 7 3 4 6 4
## [1481] 6 6 4 7 7 6 7 4 7 1 4 1 3 4 8 3 7 7 7 6 2 1 4 5 1 4 7 3 3 1 3 7 3 1 3 6 3
## [1518] 6 5 7 8 3 8 5 2 1 7 5 3 4 3 5 4 1 3 7 4 3 4 5 6 3 4 7 7 7 8 3 1 1 5 5 1 1
## [1555] 5 6 5 4 7 3 7 6 2 8 3 2 8 3 1 1 8 4 4 1 7 4 6 4 6 3 7 4 4 5 1 6 2 3 4 4 6
## [1592] 6 3 5 4 4 3 3 5 3 3 5 4 1 7 6 1 3 4 4 4 4 7 3 3 3 4 5 3 6 1 3 3 7 4 4 1 1
## [1629] 5 7 3 3 3 3 2 6 1 4 6 5 3 4 4 3 1 3 8 2 1 4 7 3 8 7 5 4 4 4 5 8 4 7 5 7 5
## [1666] 5 5 1 3 1 4 6 4 2 3 3 1 4 2 4 6 6 3 6 5 4 6 3 7 1 5 1 7 6 4 4 3 3 4 4 6 1
## [1703] 6 3 7 5 5 4 3 3 6 5 4 3 4 4 5 5 5 4 3 8 6 6 1 5 3 7 3 4 7 5 2 3 7 1 3 6 7
## [1740] 3 7 5 7 3 3 3 1 5 7 1 3 5 3 1 3 4 1 1 5 1 7 5 1 7 6 3 1 3 3 3 1 1 3 6 1 1
## [1777] 6 6 1 4 4 4 3 1 4 6 3 7 4 6 4 4 3 4 3 6 7 1 3 4 6 6 4 7 4 4 1 4 1 4 4 1 7
## [1814] 3 4 4 3 4 6 4 1 4 3 3 7 1 7 6 1 4 4 7 6 1 3 2 1 4 1 4 8 7 3 3 3 2 3 7 4 3
## [1851] 4 3 6 1 1 1 4 4 1 4 4 3 6 3 1 2 5 6 1 5 1 4 4 1 2 6 1 6 7 7 6 1 1 3 6 1 5
## [1888] 5 4 3 1 6 3 4 1 3 1 1 4 1 6 6 1 1 2 4 8 1 2 8 2 3 1 3 4 4 1 1 4 3 4 1 7 6
## [1925] 1 4 3 7 5 7 6 4 4 4 1 5 7 6 4 4 1 3 7 4 6 4 6 4 4 6 1 8 8 3 5 7 5 4 5 4 7
## [1962] 4 4 6 3 5 3 3 1 1 1 1 4 5 8 3 3 4 5 5 3 6 7 4 3 2 3 6 5 7 1 5 7 1 5 6 3 5
## [1999] 5 3 1 2 3 1 8 5 6 7 6 1 6 1 6 3 6 4 7 2 1 3 6 4 6 3 6 4 4 2 4 2 4 1 6 3 5
## [2036] 7 6 6 1 1 3 3 4 1 1 7 7 6 4 8 3 4 3 4 5 3 6 1 6 1 7 1 7 8 4 7 3 1 8 6 1 6
## [2073] 3 3 4 4 1 3 4 3 7 4 5 6 7 4 2 3 7 4 7 3 7 1 6 1 4 1 3 3 6 4 3 1 1 7 4 5 3
## [2110] 2 1 4 1 6 1 7 6 3 1 4 3 2 8 7 2 6 2 6 7 1 3 6 6 7 8 2 5 1 1 1 8 4 4 8 6 2
## [2147] 3 3 1 1 6 1 7 7 6 8 7 7 7 4 6 7 1 4 3 3 1 1 4 4 4 7 7 3 4 4 3 1 3 3 7 3 1
## [2184] 3 1 4 3 6 1 1 7 6 3 1 7 6 4 7 1 7 4 3 1 6 6 4 1 4 6 2 6 4 1 1 6 4 1 4 7 7
## [2221] 4 6 7 3 6 4 3 3 4 2 2 6 5 1 8 4 7 3 8 3 7 5 8 1 2 3 6 4 6 7 2 1 4 3 7 7 7
## [2258] 1 1 2 6 2 1 5 7 3 5 7 1 6 3 4 4 1 7 4 2 5 5 4 1 4 1 1 4 5 6 7 1 2 3 5 7 7
## [2295] 6 1 4 1 5 7 6 6 4 6 7 4 8 3 1 1 4 4 1 6 1 4 1 6 3 6 3 3 7 1 8 1 3 5 4 3 1
## [2332] 3 6 4 8 5 6 6 7 5 7 3 3 4 7 3 1 3 1 4 4 5 4 3 7 3 5 3 5 1 6 7 1 4 7 7 3 4
## [2369] 3 8 1 4 7 1 7 3 4 4 1 7 5 4 4 1 6 3 1 3 5 8 1 7 7 1 8 1 5 6 4 6 7 4 4 3 6
## [2406] 4 4 1 3 1 4 4 1 8 7 1 7 4 1 4 3 1 4 5 1 3 6 6 6 1 3 1 3 4 1 4 7 6 3 8 6 8
## [2443] 1 6 6 2 4 4 2 1 6 1 4 6 4 5 2 7 4 8 4 7 1 7 3 3 8 4 3 1 4 5 1 1 7 3 7 4 7
## [2480] 4 3 6 3 4 6 5 7 8 7 1 5 3 7 1 6 1 8 7 3 5 1 3 7 7 1 3 4 7 1 2 7 6 1 3 4 4
## [2517] 1 4 1 7 1 4 2 3 3 7 4 3 5 1 4 7 4 1 3 4 6 3 4 4 7 7 6 6 4 3 4 3 3 5 6 4 1
## [2554] 1 6 3 2 5 8 1 7 4 3 3 1 1 8 1 5 3 6 6 1 8 3 7 1 1 7 6 8 8 6 4 1 6 3 1 4 4
## [2591] 3 1 4 1 7 4 3 4 5 7 4 3 6 3 4 5 5 3 5 4 1 1 6 3 7 1 5 3 5 6 6 6 1 6 4 4 6
## [2628] 6 7 7 7 1 7 1 5 3 4 5 5 7 5 7 5 7 6 5 6 6 2 7 7 4 3 1 2 4 6 8 7 2 2 7 1 1
## [2665] 1 3 1 1 3 3 4 4 4 5 1 1 2 1 7 3 4 6 1 1 8 3 5 3 6 4 5 4 1 4 3 4 5 3 1 3 5
## [2702] 7 3 4 1 6 3 5 3 5 5 5 4 4 3 1 6 5 4 4 4 4 3 6 6 3 6 1 6 1 1 1 1 1 6 4 5 7
## [2739] 4 1 6 7 1 3 5 7 1 6 6 5 1 4 6 7 3 7 1 4 3 6 6 5 1 6 6 7 1 2 7 8 1 1 1 1 4
## [2776] 2 4 1 1 6 5 7 7 7 3 6 7 4 1 5 1 4 7 7 3 1 1 8 3 4 6 1 7 4 1 4 6 3 7 3 6 6
## [2813] 7 4 3 6 1 3 1 2 1 3 7 2 1 3 1 3 4 6 1 6 6 4 7 4 8 4 8 4 1 1 3 3 1 4 4 3 6
## [2850] 4 5 3 6 4 1 5 1 4 1 8 3 4 1 4 6 4 6 7 3 5 8 5 5 7 2 1 6 1 4 1 4 4 3 3 3 1
## [2887] 6 1 7 4 8 6 7 3 3 2 7 3 1 5 7 3 1 1 6 5 6 6 6 2 4 5 1 7 5 5 7 7 3 1 7 4 7
## [2924] 3 6 6 1 1 4 4 7 3 6 4 2 6 4 1 7 5 4 3 3 4 5 3 4 7 7 5 3 4 1 7 4 1 5 7 1 7
## [2961] 4 3 4 7 1 3 1 3 5 1 4 1 1 4 5 1 5 5 5 5 5 2 6 3 1 5 4 1 1 7 1 6 3 5 5 8 1
## [2998] 6 3 6 7 4 7 4 3 3 4 4 4 4 4 1 5 6 3 4 7 6 3 7 4 7 4 6 4 4 5 5 3 4 5 1 4 4
## [3035] 7 7 6 2 4 4 8 8 7 3 5 7 4 1 5 5 4 5 5 7 6 3 4 3 4 1 1 4 7 6 4 4 1 1 6 5 5
## [3072] 3 7 6 4 6 1 4 4 2 7 5 1 8 4 7 4 4 8 3 3 7 4 4 6 1 1 5 1 6 1 4 2 7 3 8 6 2
## [3109] 8 1 4 3 4 3 1 1 1 7 1 6 4 3 5 6 1 4 7 7 2 7 1 2 7 4 4 3 4 4 1 4 4 7 1 4 4
## [3146] 4 3 3 7 7 1 4 6 1 7 3 7 4 1 7 1 6 3 4 3 1 3 7 1 3 1 7 1 6 6 7 4 4 3 1 6 3
## [3183] 3 5 7 7 1 7 4 1 1 5 3 1 3 5 1 3 7 4 8 1 3 1 3 1 4 4 2 1 2 7 2 3 3 3 5 1 8
## [3220] 3 1 3 3 8 4 2 3 6 3 4 7 3 1 8 5 6 5 3 1 4 1 3 4 7 2 4 3 5 3 3 1 1 5 1 7 4
## [3257] 2 8 7 7 4 1 2 1 6 3 7 6 3 1 6 5 3 4 1 3 1 4 4 3 6 6 3 4 5 4 5 3 7 4 5 6 4
## [3294] 5 8 4 1 6 8 6 7 5 7 1 2 3 3 6 5 3 6 6 1 1 4 7 7 4 7 1 6 7 4 3 6 3 3 1 3 4
## [3331] 4 4 7 6 1 4 4 4 2 6 4 4 7 5 3 4 3 3 5 4 5 4 1 7 4 5 4 8 5 5 6 4 6 5 5 4 8
## [3368] 1 3 3 1 5 4 5 3 7 4 1 5 2 5 8 4 3 1 7 2 3 1 1 3 4 1 1 4 3 3 3 6 3 6 6 1 1
## [3405] 6 7 4 3 6 4 2 4 5 7 7 7 1 6 1 1 4 7 4 1 6 4 3 3 3 1 3 4 1 7 5 7 1 2 7 4 3
## [3442] 1 1 1 1 4 4 1 3 3 4 5 4 4 4 7 5 2 4 1 1 1 6 1 4 2 1 5 3 1 6 6 1 6 3 8 6 1
## [3479] 2 1 1 3 7 8 6 1 1 7 3 3 6 3 5 1 1 4 4 4 4 3 6 3 8 3 3 3 3 3 7 1 1 5 1 1 7
## [3516] 6 3 5 7 4 5 1 7 7 1 6 7 2 6 4 8 7 3 1 6 1 6 3 6 2 1 6 1 4 2 4 4 4 4 1 5 3
## [3553] 3 4 3 7 4 1 7 4 3 7 1 2 6 5 4 3 4 7 3 6 4 3 1 7 1 5 4 3 6 4 4 3 7 3 5 7 3
## [3590] 4 3 1 4 6 6 1 3 6 8 3 1 4 7 4 5 1 3 2 6 3 1 7 4 6 1 7 6 4 5 1 7 6 4 7 5 1
## [3627] 6 2 3 4 6 7 4 8 8 4 5 5 5 5 2 3 1 4 6 1 4 1 6 3 7 7 1 2 1 3 3 1 6 5 5 1 7
## [3664] 1 4 7 4 2 8 3 7 3 8 7 4 1 3 4 5 7 1 4 2 4 7 1 6 4 5 4 6 3 3 7 5 4 1 5 1 6
## [3701] 6 4 3 1 3 4 4 4 4 1 1 4 3 2 6 7 1 1 6 8 3 4 3 5 8 7 2 1 1 1 4 4 3 4 3 4 3
## [3738] 1 1 3 4 3 6 4 6 1 1 3 4 6 7 3 2 8 7 4 7 3 3 3 4 6 7 7 6 1 5 4 5 1 3 7 1 4
## [3775] 1 1 8 4 4 1 4 6 4 3 3 2 1 7 4 6 4 7 1 1 8 6 4 6 6 3 4 3 3 4 7 1 5 7 1 4 1
## [3812] 1 1 7 2 1 1 3 3 2 4 7 7 1 4 1 7 5 7 7 4 7 6 1 2 3 5 7 1 6 4 1 1 5 3 6 5 4
## [3849] 4 7 3 7 1 6 3 7 1 8 6 3 5 3 3 1 1 3 8 4 7 3 4 6 4 5 3 3 3 5 2 2 1 6 4 1 4
## [3886] 1 3 4 3 6 1 1 3 4 4 7 4 6 7 3 6 4 8 6 4 3 3 1 7 3 8 1 3 6 1 1 1 3 4 3 7 1
## [3923] 3 3 4 3 1 3 2 8 4 3 4 3 3 3 7 6 7 7 6 3 6 7 3 6 1 1 6 3 3 7 7 7 1 4 7 2 3
## [3960] 7 3 1 8 2 1 3 1 3 3 1 6 1 1 3 1 4 3 3 2 3 7 7 6 3 7 1 3 3 5 4 1 7 1 6 4 3
## [3997] 3 6 4 4 8 7 5 1 7 4 4 4 8 4 7 3 4 1 6 1 5 3 5 5 4 1 3 3 5 3 4 1 8 7 4 3 1
## [4034] 6 1 4 4 1 4 5 3 1 3 7 7 1 1 6 8 4 2 7 1 3 3 7 6 3 2 3 5 3 2 1 6 3 7 8 6 7
## [4071] 4 7 6 7 5 5 4 5 7 1 7 6 7 4 7 5 4 4 6 4 7 7 4 4 1 7 6 1 6 1 1 5 1 3 5 7 1
## [4108] 7 6 4 1 1 6 1 1 7 1 3 7 1 2 4 7 4 2 3 1 1 3 6 7 4 2 7 5 7 5 3 1 6 6 7 6 7
## [4145] 4 5 3 6 4 2 5 6 6 4 4 7 4 6 7 6 7 5 1 1 7 4 4 8 7 7 7 7 4 4 5 4 7 4 5 7 7
## [4182] 4 7 4 5 1 5 7 4 3 4 5 3 4 7 7 4 3 6 4 1 3 6 2 3 4 4 7 3 6 7 8 2 3 3 6 3 4
## [4219] 4 1 4 6 7 2 4 3 8 8 6 5 3 7 4 3 1 4 6 7 3 4 1 7 7 5 1 3 7 7 6 3 4 5 4 1 7
## [4256] 1 2 1 1 7 3 7 6 6 3 3 7 4 4 4 6 1 4 5 1 6 4 1 4 2 1 8 4 1 1 3 8 4 6 1 8 1
## [4293] 3 1 6 4 2 3 1 7 7 1 7 4 8 3 7 6 7 3 4 4 3 4 6 7 4 4 4 6 3 2 1 6 3 7 3 3 7
## [4330] 1 3 3 8 4 2 8 1 1 6 4 3 8 3 4 6 4 6 1 5 4 7 3 1 8 4 7 1 1 7 7 4 3 4 4 4 4
## [4367] 4 7 7 4 3 1
## Levels: 1 2 3 4 5 6 7 8
head(k_mod8)
## $cluster
##    [1] 7 3 1 1 2 5 7 6 2 3 3 1 3 3 7 3 6 1 6 4 3 1 1 2 1 1 8 8 1 3 1 8 4 2 3 4 5
##   [38] 1 1 3 3 1 6 7 7 4 8 3 1 3 3 6 1 1 6 3 3 6 4 1 6 3 6 1 6 1 3 3 4 3 3 3 1 8
##   [75] 2 3 3 7 4 3 4 1 6 4 3 7 3 1 6 4 8 3 8 1 6 1 1 1 1 6 3 3 3 3 1 3 3 1 1 3 3
##  [112] 3 3 1 2 3 4 4 6 1 4 4 3 8 8 7 4 7 7 6 1 7 6 4 4 6 2 1 3 3 4 3 6 4 3 3 1 4
##  [149] 3 8 4 4 6 1 3 4 3 3 1 4 1 1 7 7 1 7 4 3 5 1 4 6 3 7 3 6 7 4 3 3 4 1 7 7 1
##  [186] 5 3 4 6 4 6 3 3 8 4 4 4 4 8 6 6 6 3 4 3 3 1 3 6 4 4 4 7 5 1 3 1 4 3 6 3 1
##  [223] 4 4 3 1 3 7 6 6 8 3 3 1 1 4 3 8 3 1 6 1 7 1 8 6 1 1 3 6 6 1 7 6 8 1 3 1 1
##  [260] 4 4 3 1 7 7 4 3 8 3 7 1 3 1 3 1 1 3 3 3 3 3 7 8 1 2 1 6 1 1 1 3 1 4 4 3 3
##  [297] 6 3 3 6 3 1 3 6 1 6 4 1 3 3 1 1 1 6 3 3 1 6 3 7 6 7 6 7 7 1 4 5 3 3 3 3 7
##  [334] 8 3 8 2 4 3 8 5 3 6 8 3 6 2 1 1 1 3 1 3 1 1 4 1 4 6 7 6 6 1 4 7 1 6 4 6 6
##  [371] 4 7 6 6 7 2 1 7 1 1 4 5 1 1 7 1 7 4 6 6 3 7 5 3 8 3 1 8 1 6 1 1 6 6 8 5 7
##  [408] 3 6 4 7 5 6 3 8 7 4 6 2 2 8 5 1 4 2 1 1 4 1 1 2 1 2 4 4 7 3 7 1 3 4 3 3 1
##  [445] 3 6 8 2 1 4 3 6 4 1 1 3 7 4 3 5 3 1 5 4 8 5 6 7 4 6 8 3 3 1 1 1 4 3 7 3 4
##  [482] 3 5 4 1 7 5 3 7 6 7 8 4 6 4 1 4 6 3 4 4 4 1 4 1 6 6 3 7 7 3 6 4 7 7 5 3 3
##  [519] 3 1 4 3 3 1 1 8 1 4 5 1 7 4 1 6 1 1 2 6 6 4 3 3 4 3 6 1 4 7 2 4 2 1 7 1 4
##  [556] 4 3 7 7 6 5 3 4 7 3 8 1 7 3 3 4 4 8 1 4 3 3 7 7 3 4 1 7 1 2 1 5 3 3 6 1 1
##  [593] 7 6 6 3 3 4 7 1 7 7 8 2 3 3 1 3 6 3 4 7 4 4 1 3 1 6 4 7 1 1 6 5 4 7 8 1 6
##  [630] 1 5 4 4 1 1 3 1 4 3 4 3 3 7 1 7 4 4 6 4 7 3 3 3 1 1 4 5 3 6 1 5 1 2 7 7 1
##  [667] 6 7 3 1 7 7 4 7 3 5 1 6 1 1 6 6 7 6 7 4 3 4 6 6 6 4 4 1 4 4 2 7 3 8 3 3 3
##  [704] 3 2 5 4 7 4 4 1 4 6 1 4 7 3 6 4 6 7 7 3 4 7 6 6 7 6 3 7 1 5 1 1 1 1 3 3 1
##  [741] 3 5 4 4 1 3 4 3 2 1 6 1 3 1 6 6 3 6 6 3 6 4 4 4 1 4 1 1 6 1 6 6 4 3 1 4 3
##  [778] 4 6 7 6 4 3 1 6 5 3 7 3 6 6 1 4 7 3 6 1 1 6 6 4 4 4 3 1 7 6 1 1 3 4 7 3 3
##  [815] 8 3 4 4 1 1 1 4 3 4 3 6 4 1 3 4 3 3 2 2 1 1 3 4 1 7 1 6 5 3 7 3 4 6 6 6 1
##  [852] 7 3 7 4 2 6 1 4 3 2 1 6 2 6 3 1 6 1 1 6 4 4 4 3 6 3 7 1 3 7 7 4 1 1 3 1 4
##  [889] 8 5 4 3 1 4 3 4 6 4 6 3 3 1 4 4 5 8 1 7 3 3 4 5 4 7 8 1 6 4 5 6 1 7 3 6 4
##  [926] 1 3 1 1 7 6 7 4 3 1 3 1 4 8 4 5 4 3 7 5 4 4 4 5 5 1 5 6 1 7 7 1 7 8 3 3 2
##  [963] 3 5 1 1 5 4 1 6 4 3 7 1 6 3 4 1 3 6 6 4 3 8 1 7 4 6 3 4 4 7 1 6 7 3 1 7 7
## [1000] 1 7 4 4 1 7 3 3 4 2 3 7 3 1 6 6 6 3 4 7 7 8 7 5 2 1 6 4 8 7 3 1 4 1 6 6 4
## [1037] 3 5 6 4 6 1 3 1 6 7 7 6 1 2 6 6 7 3 3 3 1 4 1 7 1 5 3 3 3 5 4 3 7 1 7 5 1
## [1074] 7 4 1 4 4 3 6 6 4 8 7 3 4 4 7 1 7 1 2 4 1 1 3 4 4 6 6 5 1 1 7 1 4 7 3 4 6
## [1111] 1 7 5 7 3 1 4 1 2 5 5 8 1 3 2 4 7 1 3 6 4 4 1 1 8 3 3 6 6 8 4 4 1 3 3 1 3
## [1148] 1 6 4 6 6 2 3 4 6 4 3 4 7 1 6 3 4 3 3 1 4 1 4 7 4 3 1 4 4 1 2 4 1 2 6 6 6
## [1185] 7 4 1 1 3 4 4 7 3 1 6 8 1 1 6 5 7 1 4 4 6 7 3 3 4 7 4 3 2 4 1 4 3 3 4 3 4
## [1222] 3 1 2 1 4 3 3 1 3 2 1 6 3 3 6 6 2 6 4 1 8 1 1 6 6 1 2 4 4 3 3 3 1 1 6 7 1
## [1259] 4 3 7 5 2 7 1 6 3 1 3 4 7 4 2 3 3 7 3 3 1 7 1 7 5 4 1 6 4 6 2 4 8 7 5 3 4
## [1296] 3 4 7 3 5 3 4 3 7 8 1 7 1 3 4 4 3 1 3 1 2 1 7 7 3 4 3 4 6 1 1 6 3 6 3 1 4
## [1333] 1 1 6 7 1 3 4 7 7 1 1 6 7 3 1 4 3 8 7 8 1 7 1 6 1 4 3 6 1 3 5 3 4 7 3 3 3
## [1370] 1 3 2 2 1 7 1 4 4 6 7 3 3 3 4 7 1 3 1 3 4 4 6 3 6 6 8 3 3 1 6 3 1 5 3 4 7
## [1407] 7 3 1 7 7 3 8 6 7 2 3 3 6 3 3 7 1 3 6 6 6 6 7 4 4 1 3 7 3 4 1 3 4 2 1 3 3
## [1444] 3 1 4 1 3 3 4 2 7 8 8 3 3 7 1 7 3 4 6 5 6 7 2 3 6 1 4 3 1 1 6 7 7 3 4 6 4
## [1481] 6 6 4 7 7 6 7 4 7 1 4 1 3 4 8 3 7 7 7 6 2 1 4 5 1 4 7 3 3 1 3 7 3 1 3 6 3
## [1518] 6 5 7 8 3 8 5 2 1 7 5 3 4 3 5 4 1 3 7 4 3 4 5 6 3 4 7 7 7 8 3 1 1 5 5 1 1
## [1555] 5 6 5 4 7 3 7 6 2 8 3 2 8 3 1 1 8 4 4 1 7 4 6 4 6 3 7 4 4 5 1 6 2 3 4 4 6
## [1592] 6 3 5 4 4 3 3 5 3 3 5 4 1 7 6 1 3 4 4 4 4 7 3 3 3 4 5 3 6 1 3 3 7 4 4 1 1
## [1629] 5 7 3 3 3 3 2 6 1 4 6 5 3 4 4 3 1 3 8 2 1 4 7 3 8 7 5 4 4 4 5 8 4 7 5 7 5
## [1666] 5 5 1 3 1 4 6 4 2 3 3 1 4 2 4 6 6 3 6 5 4 6 3 7 1 5 1 7 6 4 4 3 3 4 4 6 1
## [1703] 6 3 7 5 5 4 3 3 6 5 4 3 4 4 5 5 5 4 3 8 6 6 1 5 3 7 3 4 7 5 2 3 7 1 3 6 7
## [1740] 3 7 5 7 3 3 3 1 5 7 1 3 5 3 1 3 4 1 1 5 1 7 5 1 7 6 3 1 3 3 3 1 1 3 6 1 1
## [1777] 6 6 1 4 4 4 3 1 4 6 3 7 4 6 4 4 3 4 3 6 7 1 3 4 6 6 4 7 4 4 1 4 1 4 4 1 7
## [1814] 3 4 4 3 4 6 4 1 4 3 3 7 1 7 6 1 4 4 7 6 1 3 2 1 4 1 4 8 7 3 3 3 2 3 7 4 3
## [1851] 4 3 6 1 1 1 4 4 1 4 4 3 6 3 1 2 5 6 1 5 1 4 4 1 2 6 1 6 7 7 6 1 1 3 6 1 5
## [1888] 5 4 3 1 6 3 4 1 3 1 1 4 1 6 6 1 1 2 4 8 1 2 8 2 3 1 3 4 4 1 1 4 3 4 1 7 6
## [1925] 1 4 3 7 5 7 6 4 4 4 1 5 7 6 4 4 1 3 7 4 6 4 6 4 4 6 1 8 8 3 5 7 5 4 5 4 7
## [1962] 4 4 6 3 5 3 3 1 1 1 1 4 5 8 3 3 4 5 5 3 6 7 4 3 2 3 6 5 7 1 5 7 1 5 6 3 5
## [1999] 5 3 1 2 3 1 8 5 6 7 6 1 6 1 6 3 6 4 7 2 1 3 6 4 6 3 6 4 4 2 4 2 4 1 6 3 5
## [2036] 7 6 6 1 1 3 3 4 1 1 7 7 6 4 8 3 4 3 4 5 3 6 1 6 1 7 1 7 8 4 7 3 1 8 6 1 6
## [2073] 3 3 4 4 1 3 4 3 7 4 5 6 7 4 2 3 7 4 7 3 7 1 6 1 4 1 3 3 6 4 3 1 1 7 4 5 3
## [2110] 2 1 4 1 6 1 7 6 3 1 4 3 2 8 7 2 6 2 6 7 1 3 6 6 7 8 2 5 1 1 1 8 4 4 8 6 2
## [2147] 3 3 1 1 6 1 7 7 6 8 7 7 7 4 6 7 1 4 3 3 1 1 4 4 4 7 7 3 4 4 3 1 3 3 7 3 1
## [2184] 3 1 4 3 6 1 1 7 6 3 1 7 6 4 7 1 7 4 3 1 6 6 4 1 4 6 2 6 4 1 1 6 4 1 4 7 7
## [2221] 4 6 7 3 6 4 3 3 4 2 2 6 5 1 8 4 7 3 8 3 7 5 8 1 2 3 6 4 6 7 2 1 4 3 7 7 7
## [2258] 1 1 2 6 2 1 5 7 3 5 7 1 6 3 4 4 1 7 4 2 5 5 4 1 4 1 1 4 5 6 7 1 2 3 5 7 7
## [2295] 6 1 4 1 5 7 6 6 4 6 7 4 8 3 1 1 4 4 1 6 1 4 1 6 3 6 3 3 7 1 8 1 3 5 4 3 1
## [2332] 3 6 4 8 5 6 6 7 5 7 3 3 4 7 3 1 3 1 4 4 5 4 3 7 3 5 3 5 1 6 7 1 4 7 7 3 4
## [2369] 3 8 1 4 7 1 7 3 4 4 1 7 5 4 4 1 6 3 1 3 5 8 1 7 7 1 8 1 5 6 4 6 7 4 4 3 6
## [2406] 4 4 1 3 1 4 4 1 8 7 1 7 4 1 4 3 1 4 5 1 3 6 6 6 1 3 1 3 4 1 4 7 6 3 8 6 8
## [2443] 1 6 6 2 4 4 2 1 6 1 4 6 4 5 2 7 4 8 4 7 1 7 3 3 8 4 3 1 4 5 1 1 7 3 7 4 7
## [2480] 4 3 6 3 4 6 5 7 8 7 1 5 3 7 1 6 1 8 7 3 5 1 3 7 7 1 3 4 7 1 2 7 6 1 3 4 4
## [2517] 1 4 1 7 1 4 2 3 3 7 4 3 5 1 4 7 4 1 3 4 6 3 4 4 7 7 6 6 4 3 4 3 3 5 6 4 1
## [2554] 1 6 3 2 5 8 1 7 4 3 3 1 1 8 1 5 3 6 6 1 8 3 7 1 1 7 6 8 8 6 4 1 6 3 1 4 4
## [2591] 3 1 4 1 7 4 3 4 5 7 4 3 6 3 4 5 5 3 5 4 1 1 6 3 7 1 5 3 5 6 6 6 1 6 4 4 6
## [2628] 6 7 7 7 1 7 1 5 3 4 5 5 7 5 7 5 7 6 5 6 6 2 7 7 4 3 1 2 4 6 8 7 2 2 7 1 1
## [2665] 1 3 1 1 3 3 4 4 4 5 1 1 2 1 7 3 4 6 1 1 8 3 5 3 6 4 5 4 1 4 3 4 5 3 1 3 5
## [2702] 7 3 4 1 6 3 5 3 5 5 5 4 4 3 1 6 5 4 4 4 4 3 6 6 3 6 1 6 1 1 1 1 1 6 4 5 7
## [2739] 4 1 6 7 1 3 5 7 1 6 6 5 1 4 6 7 3 7 1 4 3 6 6 5 1 6 6 7 1 2 7 8 1 1 1 1 4
## [2776] 2 4 1 1 6 5 7 7 7 3 6 7 4 1 5 1 4 7 7 3 1 1 8 3 4 6 1 7 4 1 4 6 3 7 3 6 6
## [2813] 7 4 3 6 1 3 1 2 1 3 7 2 1 3 1 3 4 6 1 6 6 4 7 4 8 4 8 4 1 1 3 3 1 4 4 3 6
## [2850] 4 5 3 6 4 1 5 1 4 1 8 3 4 1 4 6 4 6 7 3 5 8 5 5 7 2 1 6 1 4 1 4 4 3 3 3 1
## [2887] 6 1 7 4 8 6 7 3 3 2 7 3 1 5 7 3 1 1 6 5 6 6 6 2 4 5 1 7 5 5 7 7 3 1 7 4 7
## [2924] 3 6 6 1 1 4 4 7 3 6 4 2 6 4 1 7 5 4 3 3 4 5 3 4 7 7 5 3 4 1 7 4 1 5 7 1 7
## [2961] 4 3 4 7 1 3 1 3 5 1 4 1 1 4 5 1 5 5 5 5 5 2 6 3 1 5 4 1 1 7 1 6 3 5 5 8 1
## [2998] 6 3 6 7 4 7 4 3 3 4 4 4 4 4 1 5 6 3 4 7 6 3 7 4 7 4 6 4 4 5 5 3 4 5 1 4 4
## [3035] 7 7 6 2 4 4 8 8 7 3 5 7 4 1 5 5 4 5 5 7 6 3 4 3 4 1 1 4 7 6 4 4 1 1 6 5 5
## [3072] 3 7 6 4 6 1 4 4 2 7 5 1 8 4 7 4 4 8 3 3 7 4 4 6 1 1 5 1 6 1 4 2 7 3 8 6 2
## [3109] 8 1 4 3 4 3 1 1 1 7 1 6 4 3 5 6 1 4 7 7 2 7 1 2 7 4 4 3 4 4 1 4 4 7 1 4 4
## [3146] 4 3 3 7 7 1 4 6 1 7 3 7 4 1 7 1 6 3 4 3 1 3 7 1 3 1 7 1 6 6 7 4 4 3 1 6 3
## [3183] 3 5 7 7 1 7 4 1 1 5 3 1 3 5 1 3 7 4 8 1 3 1 3 1 4 4 2 1 2 7 2 3 3 3 5 1 8
## [3220] 3 1 3 3 8 4 2 3 6 3 4 7 3 1 8 5 6 5 3 1 4 1 3 4 7 2 4 3 5 3 3 1 1 5 1 7 4
## [3257] 2 8 7 7 4 1 2 1 6 3 7 6 3 1 6 5 3 4 1 3 1 4 4 3 6 6 3 4 5 4 5 3 7 4 5 6 4
## [3294] 5 8 4 1 6 8 6 7 5 7 1 2 3 3 6 5 3 6 6 1 1 4 7 7 4 7 1 6 7 4 3 6 3 3 1 3 4
## [3331] 4 4 7 6 1 4 4 4 2 6 4 4 7 5 3 4 3 3 5 4 5 4 1 7 4 5 4 8 5 5 6 4 6 5 5 4 8
## [3368] 1 3 3 1 5 4 5 3 7 4 1 5 2 5 8 4 3 1 7 2 3 1 1 3 4 1 1 4 3 3 3 6 3 6 6 1 1
## [3405] 6 7 4 3 6 4 2 4 5 7 7 7 1 6 1 1 4 7 4 1 6 4 3 3 3 1 3 4 1 7 5 7 1 2 7 4 3
## [3442] 1 1 1 1 4 4 1 3 3 4 5 4 4 4 7 5 2 4 1 1 1 6 1 4 2 1 5 3 1 6 6 1 6 3 8 6 1
## [3479] 2 1 1 3 7 8 6 1 1 7 3 3 6 3 5 1 1 4 4 4 4 3 6 3 8 3 3 3 3 3 7 1 1 5 1 1 7
## [3516] 6 3 5 7 4 5 1 7 7 1 6 7 2 6 4 8 7 3 1 6 1 6 3 6 2 1 6 1 4 2 4 4 4 4 1 5 3
## [3553] 3 4 3 7 4 1 7 4 3 7 1 2 6 5 4 3 4 7 3 6 4 3 1 7 1 5 4 3 6 4 4 3 7 3 5 7 3
## [3590] 4 3 1 4 6 6 1 3 6 8 3 1 4 7 4 5 1 3 2 6 3 1 7 4 6 1 7 6 4 5 1 7 6 4 7 5 1
## [3627] 6 2 3 4 6 7 4 8 8 4 5 5 5 5 2 3 1 4 6 1 4 1 6 3 7 7 1 2 1 3 3 1 6 5 5 1 7
## [3664] 1 4 7 4 2 8 3 7 3 8 7 4 1 3 4 5 7 1 4 2 4 7 1 6 4 5 4 6 3 3 7 5 4 1 5 1 6
## [3701] 6 4 3 1 3 4 4 4 4 1 1 4 3 2 6 7 1 1 6 8 3 4 3 5 8 7 2 1 1 1 4 4 3 4 3 4 3
## [3738] 1 1 3 4 3 6 4 6 1 1 3 4 6 7 3 2 8 7 4 7 3 3 3 4 6 7 7 6 1 5 4 5 1 3 7 1 4
## [3775] 1 1 8 4 4 1 4 6 4 3 3 2 1 7 4 6 4 7 1 1 8 6 4 6 6 3 4 3 3 4 7 1 5 7 1 4 1
## [3812] 1 1 7 2 1 1 3 3 2 4 7 7 1 4 1 7 5 7 7 4 7 6 1 2 3 5 7 1 6 4 1 1 5 3 6 5 4
## [3849] 4 7 3 7 1 6 3 7 1 8 6 3 5 3 3 1 1 3 8 4 7 3 4 6 4 5 3 3 3 5 2 2 1 6 4 1 4
## [3886] 1 3 4 3 6 1 1 3 4 4 7 4 6 7 3 6 4 8 6 4 3 3 1 7 3 8 1 3 6 1 1 1 3 4 3 7 1
## [3923] 3 3 4 3 1 3 2 8 4 3 4 3 3 3 7 6 7 7 6 3 6 7 3 6 1 1 6 3 3 7 7 7 1 4 7 2 3
## [3960] 7 3 1 8 2 1 3 1 3 3 1 6 1 1 3 1 4 3 3 2 3 7 7 6 3 7 1 3 3 5 4 1 7 1 6 4 3
## [3997] 3 6 4 4 8 7 5 1 7 4 4 4 8 4 7 3 4 1 6 1 5 3 5 5 4 1 3 3 5 3 4 1 8 7 4 3 1
## [4034] 6 1 4 4 1 4 5 3 1 3 7 7 1 1 6 8 4 2 7 1 3 3 7 6 3 2 3 5 3 2 1 6 3 7 8 6 7
## [4071] 4 7 6 7 5 5 4 5 7 1 7 6 7 4 7 5 4 4 6 4 7 7 4 4 1 7 6 1 6 1 1 5 1 3 5 7 1
## [4108] 7 6 4 1 1 6 1 1 7 1 3 7 1 2 4 7 4 2 3 1 1 3 6 7 4 2 7 5 7 5 3 1 6 6 7 6 7
## [4145] 4 5 3 6 4 2 5 6 6 4 4 7 4 6 7 6 7 5 1 1 7 4 4 8 7 7 7 7 4 4 5 4 7 4 5 7 7
## [4182] 4 7 4 5 1 5 7 4 3 4 5 3 4 7 7 4 3 6 4 1 3 6 2 3 4 4 7 3 6 7 8 2 3 3 6 3 4
## [4219] 4 1 4 6 7 2 4 3 8 8 6 5 3 7 4 3 1 4 6 7 3 4 1 7 7 5 1 3 7 7 6 3 4 5 4 1 7
## [4256] 1 2 1 1 7 3 7 6 6 3 3 7 4 4 4 6 1 4 5 1 6 4 1 4 2 1 8 4 1 1 3 8 4 6 1 8 1
## [4293] 3 1 6 4 2 3 1 7 7 1 7 4 8 3 7 6 7 3 4 4 3 4 6 7 4 4 4 6 3 2 1 6 3 7 3 3 7
## [4330] 1 3 3 8 4 2 8 1 1 6 4 3 8 3 4 6 4 6 1 5 4 7 3 1 8 4 7 1 1 7 7 4 3 4 4 4 4
## [4367] 4 7 7 4 3 1
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 1.838303  2.618119 2.903670
## 2 4.752874  1.000000 2.390805
## 3 1.467059  4.790588 4.927059
## 4 2.251185  1.534360 1.485782
## 5 1.811688  4.795455 2.772727
## 6 4.699115  2.419469 2.274336
## 7 4.845501  1.217317 1.000000
## 8 4.017647  4.017647 4.311765
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 1171.9427  139.7989  695.7800  981.5818  283.2825  488.9133  177.1239
## [8]  422.3706
## 
## $tot.withinss
## [1] 4360.794
## 
## $betweenss
## [1] 24389.59

Accuracy of the cluster with number of clusters 80.8483222

k_mod9=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=9)

df_mod9=cbind(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],"cluster"=k_mod9$cluster)
df_mod9$cluster=as.factor(df_mod9$cluster)

df_mod9$cluster
##    [1] 5 1 4 6 5 3 5 2 5 6 1 3 1 8 5 1 2 3 5 9 8 6 7 5 3 3 4 8 7 1 6 8 9 5 1 7 3
##   [38] 7 7 1 1 6 2 5 5 9 4 1 6 1 8 2 7 7 5 1 1 2 7 3 2 1 4 7 5 3 1 1 9 1 1 1 7 4
##   [75] 5 1 1 5 9 1 9 7 5 9 1 5 1 3 2 9 4 1 4 7 2 3 3 3 3 2 1 1 1 1 7 1 1 3 3 1 1
##  [112] 6 1 3 5 1 9 9 5 3 7 9 6 8 8 5 9 5 5 2 3 5 2 9 7 2 5 7 1 1 7 8 2 9 1 1 3 7
##  [149] 1 4 9 9 2 7 1 9 1 1 3 9 7 3 5 5 7 5 9 1 3 6 9 5 1 5 1 5 5 7 1 1 9 3 5 5 3
##  [186] 3 1 7 5 9 5 1 1 8 9 9 9 9 4 5 2 2 1 7 1 1 3 6 5 9 9 9 5 7 7 1 7 7 1 5 1 7
##  [223] 9 9 1 3 1 5 5 2 4 1 1 3 3 7 8 8 8 3 5 3 5 3 4 2 6 3 1 5 2 3 5 2 4 3 1 3 3
##  [260] 9 9 1 6 5 5 7 1 2 1 5 3 6 3 1 7 3 1 1 1 1 1 5 8 3 5 3 2 7 3 3 1 7 9 9 6 1
##  [297] 5 1 1 2 1 3 1 2 3 2 9 3 1 1 7 3 3 5 1 1 7 2 1 5 5 5 2 5 5 7 7 8 8 1 1 1 5
##  [334] 4 1 4 4 9 1 8 8 6 2 4 1 2 2 7 3 3 1 3 1 3 3 9 3 9 5 5 5 5 7 9 5 6 5 9 5 5
##  [371] 9 5 2 2 5 2 3 5 7 4 7 3 3 3 5 6 5 9 5 5 8 5 1 1 8 1 7 8 3 5 3 3 2 5 4 8 5
##  [408] 1 2 9 5 3 5 1 8 5 9 2 5 5 4 1 3 9 5 3 3 9 7 7 5 3 5 9 9 5 1 5 3 6 9 1 6 6
##  [445] 6 5 8 5 3 9 1 5 9 7 3 6 5 7 1 3 1 3 1 9 4 1 2 5 9 5 8 1 1 6 3 3 9 1 5 1 9
##  [482] 1 8 9 3 5 3 1 5 2 5 4 9 5 9 3 7 2 6 9 9 9 3 9 3 5 2 1 5 5 1 5 9 5 5 1 1 1
##  [519] 8 7 9 1 1 7 3 4 3 9 3 3 5 7 7 2 7 3 5 5 2 9 1 1 7 1 5 7 9 5 5 9 5 3 5 3 9
##  [556] 9 1 5 5 2 1 1 9 5 1 4 3 5 1 1 9 7 8 6 9 1 1 5 5 1 9 3 5 3 5 3 1 1 1 2 3 3
##  [593] 5 5 2 8 1 9 5 3 5 5 8 4 1 1 3 1 2 8 9 5 9 9 3 1 6 2 9 5 3 6 2 1 9 5 4 3 5
##  [630] 3 1 7 9 3 3 1 3 9 1 9 1 1 5 3 5 9 9 2 9 5 1 1 1 3 3 9 8 1 2 3 1 7 5 5 5 7
##  [667] 2 5 8 6 5 5 9 5 1 1 7 5 3 3 5 2 5 2 5 9 1 9 2 2 2 9 9 3 7 9 2 5 1 4 1 1 1
##  [704] 1 5 3 9 5 7 9 3 9 2 3 9 5 1 5 9 2 5 5 6 9 5 5 2 5 5 6 5 3 1 3 3 3 3 6 8 3
##  [741] 1 8 9 9 3 6 7 1 2 3 2 3 8 7 5 2 1 2 5 8 5 9 9 9 3 9 3 7 2 7 2 5 7 1 3 9 1
##  [778] 9 5 5 2 7 8 7 2 3 1 5 1 5 2 3 9 5 1 5 3 7 5 2 9 9 7 1 3 5 2 3 3 1 9 5 1 8
##  [815] 4 1 9 3 3 3 7 9 1 9 1 5 9 3 1 9 6 1 5 5 3 6 1 9 3 5 7 2 3 1 5 1 7 5 2 2 3
##  [852] 5 1 5 9 5 5 7 7 1 5 7 2 5 5 6 3 5 3 3 2 9 9 7 8 5 1 5 3 1 5 5 9 7 3 8 7 9
##  [889] 8 1 9 1 3 9 1 9 5 9 5 1 1 3 7 9 3 8 3 5 8 8 9 3 9 5 4 7 2 9 1 5 3 5 1 2 9
##  [926] 3 1 6 3 5 2 5 9 1 3 6 7 9 8 7 1 9 1 5 3 7 9 9 3 1 7 1 5 3 5 5 3 5 8 6 6 4
##  [963] 1 1 7 3 8 9 7 2 9 1 5 6 5 1 9 3 1 2 2 9 1 8 7 5 9 2 1 9 7 5 3 5 5 1 3 5 5
## [1000] 6 5 7 9 3 5 1 6 9 5 1 5 1 3 5 2 2 1 9 5 5 8 5 1 5 3 2 9 4 5 1 3 9 3 2 5 9
## [1037] 1 1 5 9 5 7 1 3 2 5 5 2 4 5 2 2 5 1 1 1 3 7 3 5 4 8 1 1 8 1 7 1 5 3 5 1 6
## [1074] 5 7 3 9 9 1 2 5 7 4 5 1 7 9 5 6 5 3 5 9 3 7 1 9 9 2 2 3 3 6 5 7 9 5 6 9 5
## [1111] 3 5 1 5 8 3 9 3 2 8 8 4 3 1 5 9 5 3 1 5 7 9 3 6 8 1 1 2 5 8 9 9 7 1 1 3 1
## [1148] 3 5 9 5 2 5 1 9 2 9 1 9 5 3 2 8 9 8 8 3 9 3 7 5 7 1 3 9 7 3 2 9 7 5 2 2 5
## [1185] 5 9 3 3 6 9 9 5 1 3 2 8 6 3 5 1 5 7 9 9 2 5 1 1 9 5 9 1 5 9 7 9 1 1 9 1 9
## [1222] 1 7 5 3 9 1 1 3 1 5 6 2 1 6 2 2 5 2 7 7 8 3 3 5 5 3 5 9 9 1 1 1 3 3 5 5 7
## [1259] 9 1 5 1 4 5 3 2 1 3 1 9 5 9 2 1 1 5 1 1 3 5 7 5 1 9 3 2 9 2 5 9 8 5 1 1 3
## [1296] 1 9 5 1 3 1 9 1 5 4 3 5 7 8 9 9 1 3 1 3 5 3 5 5 1 9 1 9 2 7 3 2 1 2 1 3 9
## [1333] 3 3 5 5 6 1 9 5 5 3 7 2 5 1 3 9 1 8 5 4 4 5 3 2 3 9 8 5 7 1 1 1 7 5 6 1 1
## [1370] 7 1 2 5 3 5 7 3 9 5 5 6 8 8 7 5 3 1 6 1 9 9 5 1 2 2 8 6 1 7 2 1 3 1 6 9 5
## [1407] 5 1 3 5 5 1 8 2 5 5 1 6 2 8 1 5 3 1 5 2 2 5 5 7 7 7 1 5 1 9 6 1 9 5 3 1 1
## [1444] 1 3 9 3 1 1 9 5 5 8 4 8 1 5 3 5 1 7 5 1 2 5 5 1 2 3 7 1 3 6 5 5 5 1 9 2 9
## [1481] 2 5 9 5 5 2 5 9 5 7 9 3 1 9 4 1 5 5 5 5 5 3 7 3 3 9 5 1 1 3 1 5 1 7 1 2 1
## [1518] 2 1 5 4 1 4 3 2 3 5 8 1 9 1 1 7 7 1 5 9 1 9 1 5 1 9 5 5 5 4 6 3 3 8 1 3 3
## [1555] 1 5 8 3 5 1 5 4 5 8 8 5 8 6 3 3 8 9 9 7 5 9 5 9 5 1 5 9 9 1 7 5 5 1 9 9 5
## [1592] 5 1 1 9 9 1 1 1 1 1 3 9 3 5 2 7 1 9 9 9 9 5 1 1 1 9 8 1 2 6 1 8 5 9 7 3 3
## [1629] 8 5 1 1 1 1 2 5 3 9 5 1 1 7 9 6 7 1 8 2 3 9 5 1 8 5 1 9 9 9 1 2 9 5 1 5 1
## [1666] 3 3 3 1 3 9 5 9 2 1 1 6 9 5 9 5 5 1 5 1 9 2 1 5 7 1 3 5 5 9 9 8 1 9 9 2 3
## [1703] 5 1 5 1 8 9 1 6 5 1 9 1 9 9 1 3 8 9 1 8 8 2 6 3 6 5 1 9 5 1 5 1 5 3 6 2 5
## [1740] 1 5 1 5 1 1 1 3 1 5 3 1 3 1 3 1 9 3 3 1 3 5 1 3 5 2 1 3 1 1 1 3 3 6 2 3 3
## [1777] 2 5 3 9 7 9 1 3 7 2 1 5 9 5 9 9 1 9 1 2 5 7 8 9 2 5 7 5 9 9 3 9 3 9 9 3 5
## [1814] 1 9 9 1 7 2 9 3 9 1 1 5 3 5 2 7 9 9 5 2 3 1 4 3 9 6 9 8 5 8 1 8 5 1 5 9 8
## [1851] 9 8 2 3 7 3 9 9 3 9 9 1 2 1 3 5 3 5 3 1 7 9 9 3 2 5 4 5 5 5 5 3 7 1 2 3 1
## [1888] 3 9 1 3 5 1 9 3 1 3 3 9 7 2 2 3 3 5 9 8 3 5 4 4 1 4 1 9 9 3 3 7 1 9 3 5 5
## [1925] 7 9 1 5 1 5 2 9 9 9 7 1 5 2 9 9 7 8 5 9 2 9 5 9 9 2 3 8 8 1 8 5 1 9 8 9 5
## [1962] 9 9 5 1 1 1 1 3 7 3 3 9 1 4 1 1 9 8 1 1 5 5 9 1 5 1 5 7 5 6 1 5 3 3 2 1 1
## [1999] 3 1 7 5 1 3 4 3 2 5 2 3 2 7 2 1 2 9 5 5 3 1 5 7 5 1 2 9 9 2 7 5 9 3 2 1 3
## [2036] 5 2 5 3 3 1 1 9 3 3 5 5 2 9 4 1 9 1 9 8 6 5 3 2 3 5 3 5 4 9 5 1 3 2 5 3 2
## [2073] 1 1 9 7 3 1 9 1 5 9 8 5 5 9 2 1 5 9 5 1 5 7 5 3 7 3 6 1 2 7 1 6 3 5 7 8 1
## [2110] 5 7 9 3 5 7 5 5 1 3 9 1 5 8 5 5 5 5 5 5 3 8 5 2 5 8 5 3 3 3 6 8 7 7 4 5 5
## [2147] 1 1 3 3 2 7 5 5 5 4 5 5 5 7 2 5 6 9 6 1 7 3 9 7 9 5 5 8 9 9 6 3 1 1 5 1 3
## [2184] 1 4 7 1 5 7 7 5 5 1 7 5 5 7 5 3 5 9 1 7 2 5 9 3 9 4 2 2 9 7 4 2 7 3 9 5 5
## [2221] 9 2 5 1 2 9 1 1 9 5 5 2 1 7 8 9 5 1 4 1 5 1 8 6 5 1 2 9 5 5 5 3 9 6 5 5 5
## [2258] 3 3 2 5 5 3 1 5 8 3 5 3 2 8 7 9 7 5 9 5 1 1 9 3 9 7 3 9 1 5 5 7 5 1 1 5 5
## [2295] 5 3 9 3 1 5 2 5 9 5 5 9 8 1 7 3 9 9 3 2 3 7 3 2 1 5 1 6 5 3 8 3 1 1 9 1 3
## [2332] 1 5 9 8 1 2 2 5 1 5 1 1 9 5 8 3 1 3 9 9 1 9 1 5 1 1 1 1 3 2 5 3 9 5 5 1 7
## [2369] 1 8 3 9 5 7 5 1 9 9 3 5 1 9 9 3 2 1 3 1 3 8 3 5 5 7 8 3 1 5 9 5 5 9 9 1 2
## [2406] 9 9 3 1 3 9 9 3 4 5 3 5 9 3 9 1 3 9 1 3 1 2 2 2 7 1 3 1 9 7 9 5 2 1 8 5 8
## [2443] 3 5 5 2 9 7 2 3 5 3 9 2 9 3 5 5 9 8 9 5 3 5 6 8 8 7 1 3 9 1 3 3 5 1 5 9 5
## [2480] 9 6 5 1 9 2 1 5 8 5 7 1 1 5 3 2 3 8 5 1 3 3 6 5 5 3 1 9 5 7 5 5 2 3 1 9 9
## [2517] 3 9 3 5 3 9 4 1 1 5 9 1 8 7 9 5 7 3 8 9 2 1 9 9 5 5 2 5 9 6 9 6 1 1 5 9 3
## [2554] 3 5 1 4 8 8 3 5 9 1 1 3 3 8 3 8 1 4 2 6 4 1 5 3 3 5 5 4 8 2 9 7 2 8 3 9 7
## [2591] 1 3 7 7 5 9 1 9 3 5 9 1 2 1 9 1 1 1 1 9 6 3 2 1 5 3 3 8 3 8 5 5 3 2 9 9 2
## [2628] 2 5 5 5 3 5 3 3 6 9 1 1 5 1 5 1 5 5 3 5 5 5 5 5 7 1 3 5 9 2 4 5 5 5 5 4 3
## [2665] 3 1 3 3 1 1 9 9 9 1 3 3 5 6 5 1 7 2 3 7 4 1 1 1 2 9 1 9 3 9 1 7 8 1 6 1 3
## [2702] 5 1 9 3 2 1 3 1 1 1 1 9 9 1 3 2 3 3 9 9 7 1 5 2 1 5 7 2 3 7 6 3 3 2 9 1 5
## [2739] 7 3 2 5 3 1 8 5 3 5 2 3 3 9 5 5 1 5 3 9 8 2 5 1 7 5 2 5 3 5 5 4 3 3 6 3 7
## [2776] 5 9 6 7 5 1 5 5 5 1 5 5 9 7 8 7 9 5 5 1 3 6 4 1 9 5 7 5 9 7 7 5 1 5 1 2 2
## [2813] 5 9 1 4 6 1 3 5 7 1 5 5 3 1 6 1 9 2 3 2 2 9 5 9 8 9 4 9 7 3 1 1 3 9 9 1 5
## [2850] 9 1 1 5 7 3 3 7 9 3 4 1 7 3 9 2 9 2 5 6 3 8 8 1 5 5 7 5 3 7 3 7 7 1 1 1 3
## [2887] 2 3 5 9 4 5 5 1 1 2 5 1 3 1 5 1 7 7 2 1 2 2 5 2 9 1 4 5 1 1 5 5 1 3 5 9 5
## [2924] 1 2 2 6 7 9 9 5 8 2 9 5 2 9 3 5 8 9 1 1 9 1 6 9 5 5 8 6 9 3 5 9 3 1 5 3 5
## [2961] 9 1 7 5 3 1 3 1 1 3 9 3 3 9 1 3 1 8 3 8 1 2 5 1 4 8 7 7 3 5 7 5 1 3 8 4 3
## [2998] 2 1 2 5 7 5 9 1 1 9 9 9 9 9 3 3 2 1 9 5 5 1 5 9 5 9 2 9 9 1 1 1 7 3 3 9 9
## [3035] 5 5 2 5 9 9 8 8 5 1 1 5 9 3 1 1 9 1 8 5 5 1 7 8 9 3 7 9 5 5 7 9 3 7 2 3 3
## [3072] 1 5 5 9 2 3 9 9 5 5 1 3 8 9 5 7 9 8 1 1 5 9 9 5 3 6 1 3 2 3 9 5 5 1 8 2 5
## [3109] 4 3 9 8 9 1 3 3 7 5 3 2 9 1 1 2 7 7 5 5 5 5 7 5 5 7 9 1 9 7 7 9 9 5 3 9 9
## [3146] 7 1 1 5 5 3 7 5 3 5 1 5 9 7 5 7 5 1 7 1 7 1 5 3 1 3 5 3 5 2 5 9 7 8 3 2 1
## [3183] 6 1 5 5 3 5 9 7 3 1 1 6 1 7 3 1 5 9 4 3 1 7 1 3 9 9 2 7 2 5 4 1 1 1 3 3 4
## [3220] 1 6 1 1 2 7 5 1 2 1 9 5 1 7 8 1 5 1 1 7 9 7 8 9 5 5 9 1 1 8 1 3 3 3 6 5 9
## [3257] 4 8 5 5 7 3 5 3 5 1 5 2 1 3 5 8 1 9 7 1 7 7 9 1 2 5 1 9 8 9 3 1 5 9 1 2 7
## [3294] 1 8 7 3 2 8 2 5 1 5 3 5 1 1 2 3 1 2 5 3 3 7 5 5 9 5 3 5 5 9 1 5 1 1 7 1 9
## [3331] 9 9 5 5 3 9 9 9 5 2 9 9 5 1 1 7 1 8 1 9 1 9 7 5 9 3 9 8 1 3 5 7 5 3 1 3 4
## [3368] 3 1 1 7 1 7 1 1 5 9 3 3 5 1 8 7 1 3 5 5 8 3 3 1 7 3 7 9 1 8 1 2 1 5 2 3 7
## [3405] 2 5 9 6 5 9 5 9 3 5 5 5 6 5 3 3 9 5 7 6 2 7 1 8 1 6 1 9 3 5 3 5 3 2 5 9 1
## [3442] 7 3 3 3 9 9 3 1 1 9 1 9 9 9 5 8 2 9 3 7 3 5 7 9 5 3 3 1 3 2 5 7 2 1 8 5 3
## [3479] 5 3 7 1 5 8 2 3 7 5 1 1 2 1 1 3 3 9 9 9 9 6 2 1 8 1 1 6 1 1 5 3 3 1 3 6 5
## [3516] 2 1 1 5 9 1 3 5 5 3 5 5 5 5 9 8 5 1 6 2 3 5 1 5 5 3 2 6 9 2 9 7 9 9 3 3 1
## [3553] 1 9 1 5 9 3 5 9 6 5 3 5 2 8 9 6 9 5 6 2 9 1 6 5 3 3 7 1 2 9 9 1 5 1 8 5 1
## [3590] 9 1 3 7 2 5 3 1 2 4 1 3 9 5 9 1 3 1 5 2 1 7 5 3 2 3 5 2 9 3 3 5 8 7 5 8 3
## [3627] 2 2 1 9 2 5 9 8 8 9 1 1 1 3 5 1 3 9 2 3 9 3 5 6 5 5 7 5 6 1 1 6 2 1 1 3 5
## [3664] 3 9 5 7 5 8 1 5 1 8 5 9 3 1 9 1 5 3 9 4 9 5 3 2 9 3 9 5 1 1 5 1 7 3 1 3 5
## [3701] 2 9 1 3 1 9 3 9 3 6 3 7 1 5 2 5 6 3 2 8 6 9 1 3 8 5 2 3 3 3 9 9 1 9 1 9 1
## [3738] 3 3 1 9 1 2 9 2 3 7 1 9 5 5 1 5 8 5 9 5 1 1 1 9 2 5 5 4 3 1 7 1 7 1 5 3 9
## [3775] 6 3 8 9 7 3 7 5 7 6 1 5 3 5 9 5 9 5 3 3 8 2 9 2 5 8 9 1 1 9 5 3 1 5 6 7 3
## [3812] 3 3 5 5 3 7 1 1 5 9 5 5 3 9 3 5 3 5 5 9 5 2 3 2 6 3 5 3 2 9 3 3 1 1 5 1 9
## [3849] 9 5 1 5 3 5 1 5 3 8 2 8 1 8 1 7 3 1 4 9 5 1 9 2 9 1 1 8 1 7 5 5 3 5 9 3 9
## [3886] 3 1 9 1 5 3 3 1 9 9 5 9 2 5 1 2 9 4 2 9 1 1 3 5 6 4 3 1 2 6 3 3 8 9 6 5 3
## [3923] 1 1 7 1 3 1 5 4 9 1 9 1 1 1 5 2 5 5 2 1 5 5 1 5 6 3 2 1 1 5 5 5 3 9 5 5 1
## [3960] 5 1 3 8 4 7 1 3 1 1 7 5 3 7 1 3 9 1 6 5 1 5 5 2 1 5 6 1 1 3 9 3 5 3 2 9 1
## [3997] 1 2 7 3 8 5 1 3 5 7 9 7 8 7 5 1 9 3 2 3 1 1 1 8 9 3 6 1 1 1 9 3 4 5 9 1 3
## [4034] 2 3 9 9 3 9 1 1 3 1 5 5 4 7 5 8 9 5 5 3 6 1 5 5 1 5 8 3 1 5 3 2 1 5 4 2 5
## [4071] 9 5 5 5 1 1 3 1 5 3 5 2 5 9 5 8 9 9 8 9 5 5 9 9 7 5 5 3 5 7 3 3 7 1 8 5 6
## [4108] 5 2 9 3 6 2 3 7 5 3 6 5 6 5 9 5 9 5 6 7 3 1 5 5 9 5 5 1 5 3 1 3 5 5 5 5 5
## [4145] 9 1 1 2 9 5 1 2 5 9 9 5 9 5 5 2 5 8 3 3 5 3 9 4 5 5 5 5 9 3 1 9 5 9 1 5 5
## [4182] 9 5 9 3 3 3 5 9 1 9 3 1 9 5 5 7 1 5 9 3 6 2 2 1 9 9 5 1 5 5 4 5 1 1 5 1 9
## [4219] 9 3 9 2 5 4 9 6 4 4 5 1 1 5 9 1 3 9 5 5 1 9 3 5 5 8 3 1 5 5 2 1 9 1 7 3 5
## [4256] 3 2 3 7 5 1 5 2 2 6 1 5 9 9 9 2 3 7 1 3 5 7 6 9 5 3 8 9 3 7 1 4 9 5 3 8 6
## [4293] 1 3 2 9 5 6 7 5 5 7 5 7 8 1 5 2 5 8 9 9 1 9 5 5 9 9 9 5 1 5 3 2 1 5 1 1 5
## [4330] 3 1 6 8 7 5 8 3 3 2 9 1 4 1 9 2 9 5 4 3 9 5 1 6 8 9 5 3 7 5 5 9 1 9 9 9 9
## [4367] 9 5 5 9 1 6
## Levels: 1 2 3 4 5 6 7 8 9
head(k_mod9)
## $cluster
##    [1] 5 1 4 6 5 3 5 2 5 6 1 3 1 8 5 1 2 3 5 9 8 6 7 5 3 3 4 8 7 1 6 8 9 5 1 7 3
##   [38] 7 7 1 1 6 2 5 5 9 4 1 6 1 8 2 7 7 5 1 1 2 7 3 2 1 4 7 5 3 1 1 9 1 1 1 7 4
##   [75] 5 1 1 5 9 1 9 7 5 9 1 5 1 3 2 9 4 1 4 7 2 3 3 3 3 2 1 1 1 1 7 1 1 3 3 1 1
##  [112] 6 1 3 5 1 9 9 5 3 7 9 6 8 8 5 9 5 5 2 3 5 2 9 7 2 5 7 1 1 7 8 2 9 1 1 3 7
##  [149] 1 4 9 9 2 7 1 9 1 1 3 9 7 3 5 5 7 5 9 1 3 6 9 5 1 5 1 5 5 7 1 1 9 3 5 5 3
##  [186] 3 1 7 5 9 5 1 1 8 9 9 9 9 4 5 2 2 1 7 1 1 3 6 5 9 9 9 5 7 7 1 7 7 1 5 1 7
##  [223] 9 9 1 3 1 5 5 2 4 1 1 3 3 7 8 8 8 3 5 3 5 3 4 2 6 3 1 5 2 3 5 2 4 3 1 3 3
##  [260] 9 9 1 6 5 5 7 1 2 1 5 3 6 3 1 7 3 1 1 1 1 1 5 8 3 5 3 2 7 3 3 1 7 9 9 6 1
##  [297] 5 1 1 2 1 3 1 2 3 2 9 3 1 1 7 3 3 5 1 1 7 2 1 5 5 5 2 5 5 7 7 8 8 1 1 1 5
##  [334] 4 1 4 4 9 1 8 8 6 2 4 1 2 2 7 3 3 1 3 1 3 3 9 3 9 5 5 5 5 7 9 5 6 5 9 5 5
##  [371] 9 5 2 2 5 2 3 5 7 4 7 3 3 3 5 6 5 9 5 5 8 5 1 1 8 1 7 8 3 5 3 3 2 5 4 8 5
##  [408] 1 2 9 5 3 5 1 8 5 9 2 5 5 4 1 3 9 5 3 3 9 7 7 5 3 5 9 9 5 1 5 3 6 9 1 6 6
##  [445] 6 5 8 5 3 9 1 5 9 7 3 6 5 7 1 3 1 3 1 9 4 1 2 5 9 5 8 1 1 6 3 3 9 1 5 1 9
##  [482] 1 8 9 3 5 3 1 5 2 5 4 9 5 9 3 7 2 6 9 9 9 3 9 3 5 2 1 5 5 1 5 9 5 5 1 1 1
##  [519] 8 7 9 1 1 7 3 4 3 9 3 3 5 7 7 2 7 3 5 5 2 9 1 1 7 1 5 7 9 5 5 9 5 3 5 3 9
##  [556] 9 1 5 5 2 1 1 9 5 1 4 3 5 1 1 9 7 8 6 9 1 1 5 5 1 9 3 5 3 5 3 1 1 1 2 3 3
##  [593] 5 5 2 8 1 9 5 3 5 5 8 4 1 1 3 1 2 8 9 5 9 9 3 1 6 2 9 5 3 6 2 1 9 5 4 3 5
##  [630] 3 1 7 9 3 3 1 3 9 1 9 1 1 5 3 5 9 9 2 9 5 1 1 1 3 3 9 8 1 2 3 1 7 5 5 5 7
##  [667] 2 5 8 6 5 5 9 5 1 1 7 5 3 3 5 2 5 2 5 9 1 9 2 2 2 9 9 3 7 9 2 5 1 4 1 1 1
##  [704] 1 5 3 9 5 7 9 3 9 2 3 9 5 1 5 9 2 5 5 6 9 5 5 2 5 5 6 5 3 1 3 3 3 3 6 8 3
##  [741] 1 8 9 9 3 6 7 1 2 3 2 3 8 7 5 2 1 2 5 8 5 9 9 9 3 9 3 7 2 7 2 5 7 1 3 9 1
##  [778] 9 5 5 2 7 8 7 2 3 1 5 1 5 2 3 9 5 1 5 3 7 5 2 9 9 7 1 3 5 2 3 3 1 9 5 1 8
##  [815] 4 1 9 3 3 3 7 9 1 9 1 5 9 3 1 9 6 1 5 5 3 6 1 9 3 5 7 2 3 1 5 1 7 5 2 2 3
##  [852] 5 1 5 9 5 5 7 7 1 5 7 2 5 5 6 3 5 3 3 2 9 9 7 8 5 1 5 3 1 5 5 9 7 3 8 7 9
##  [889] 8 1 9 1 3 9 1 9 5 9 5 1 1 3 7 9 3 8 3 5 8 8 9 3 9 5 4 7 2 9 1 5 3 5 1 2 9
##  [926] 3 1 6 3 5 2 5 9 1 3 6 7 9 8 7 1 9 1 5 3 7 9 9 3 1 7 1 5 3 5 5 3 5 8 6 6 4
##  [963] 1 1 7 3 8 9 7 2 9 1 5 6 5 1 9 3 1 2 2 9 1 8 7 5 9 2 1 9 7 5 3 5 5 1 3 5 5
## [1000] 6 5 7 9 3 5 1 6 9 5 1 5 1 3 5 2 2 1 9 5 5 8 5 1 5 3 2 9 4 5 1 3 9 3 2 5 9
## [1037] 1 1 5 9 5 7 1 3 2 5 5 2 4 5 2 2 5 1 1 1 3 7 3 5 4 8 1 1 8 1 7 1 5 3 5 1 6
## [1074] 5 7 3 9 9 1 2 5 7 4 5 1 7 9 5 6 5 3 5 9 3 7 1 9 9 2 2 3 3 6 5 7 9 5 6 9 5
## [1111] 3 5 1 5 8 3 9 3 2 8 8 4 3 1 5 9 5 3 1 5 7 9 3 6 8 1 1 2 5 8 9 9 7 1 1 3 1
## [1148] 3 5 9 5 2 5 1 9 2 9 1 9 5 3 2 8 9 8 8 3 9 3 7 5 7 1 3 9 7 3 2 9 7 5 2 2 5
## [1185] 5 9 3 3 6 9 9 5 1 3 2 8 6 3 5 1 5 7 9 9 2 5 1 1 9 5 9 1 5 9 7 9 1 1 9 1 9
## [1222] 1 7 5 3 9 1 1 3 1 5 6 2 1 6 2 2 5 2 7 7 8 3 3 5 5 3 5 9 9 1 1 1 3 3 5 5 7
## [1259] 9 1 5 1 4 5 3 2 1 3 1 9 5 9 2 1 1 5 1 1 3 5 7 5 1 9 3 2 9 2 5 9 8 5 1 1 3
## [1296] 1 9 5 1 3 1 9 1 5 4 3 5 7 8 9 9 1 3 1 3 5 3 5 5 1 9 1 9 2 7 3 2 1 2 1 3 9
## [1333] 3 3 5 5 6 1 9 5 5 3 7 2 5 1 3 9 1 8 5 4 4 5 3 2 3 9 8 5 7 1 1 1 7 5 6 1 1
## [1370] 7 1 2 5 3 5 7 3 9 5 5 6 8 8 7 5 3 1 6 1 9 9 5 1 2 2 8 6 1 7 2 1 3 1 6 9 5
## [1407] 5 1 3 5 5 1 8 2 5 5 1 6 2 8 1 5 3 1 5 2 2 5 5 7 7 7 1 5 1 9 6 1 9 5 3 1 1
## [1444] 1 3 9 3 1 1 9 5 5 8 4 8 1 5 3 5 1 7 5 1 2 5 5 1 2 3 7 1 3 6 5 5 5 1 9 2 9
## [1481] 2 5 9 5 5 2 5 9 5 7 9 3 1 9 4 1 5 5 5 5 5 3 7 3 3 9 5 1 1 3 1 5 1 7 1 2 1
## [1518] 2 1 5 4 1 4 3 2 3 5 8 1 9 1 1 7 7 1 5 9 1 9 1 5 1 9 5 5 5 4 6 3 3 8 1 3 3
## [1555] 1 5 8 3 5 1 5 4 5 8 8 5 8 6 3 3 8 9 9 7 5 9 5 9 5 1 5 9 9 1 7 5 5 1 9 9 5
## [1592] 5 1 1 9 9 1 1 1 1 1 3 9 3 5 2 7 1 9 9 9 9 5 1 1 1 9 8 1 2 6 1 8 5 9 7 3 3
## [1629] 8 5 1 1 1 1 2 5 3 9 5 1 1 7 9 6 7 1 8 2 3 9 5 1 8 5 1 9 9 9 1 2 9 5 1 5 1
## [1666] 3 3 3 1 3 9 5 9 2 1 1 6 9 5 9 5 5 1 5 1 9 2 1 5 7 1 3 5 5 9 9 8 1 9 9 2 3
## [1703] 5 1 5 1 8 9 1 6 5 1 9 1 9 9 1 3 8 9 1 8 8 2 6 3 6 5 1 9 5 1 5 1 5 3 6 2 5
## [1740] 1 5 1 5 1 1 1 3 1 5 3 1 3 1 3 1 9 3 3 1 3 5 1 3 5 2 1 3 1 1 1 3 3 6 2 3 3
## [1777] 2 5 3 9 7 9 1 3 7 2 1 5 9 5 9 9 1 9 1 2 5 7 8 9 2 5 7 5 9 9 3 9 3 9 9 3 5
## [1814] 1 9 9 1 7 2 9 3 9 1 1 5 3 5 2 7 9 9 5 2 3 1 4 3 9 6 9 8 5 8 1 8 5 1 5 9 8
## [1851] 9 8 2 3 7 3 9 9 3 9 9 1 2 1 3 5 3 5 3 1 7 9 9 3 2 5 4 5 5 5 5 3 7 1 2 3 1
## [1888] 3 9 1 3 5 1 9 3 1 3 3 9 7 2 2 3 3 5 9 8 3 5 4 4 1 4 1 9 9 3 3 7 1 9 3 5 5
## [1925] 7 9 1 5 1 5 2 9 9 9 7 1 5 2 9 9 7 8 5 9 2 9 5 9 9 2 3 8 8 1 8 5 1 9 8 9 5
## [1962] 9 9 5 1 1 1 1 3 7 3 3 9 1 4 1 1 9 8 1 1 5 5 9 1 5 1 5 7 5 6 1 5 3 3 2 1 1
## [1999] 3 1 7 5 1 3 4 3 2 5 2 3 2 7 2 1 2 9 5 5 3 1 5 7 5 1 2 9 9 2 7 5 9 3 2 1 3
## [2036] 5 2 5 3 3 1 1 9 3 3 5 5 2 9 4 1 9 1 9 8 6 5 3 2 3 5 3 5 4 9 5 1 3 2 5 3 2
## [2073] 1 1 9 7 3 1 9 1 5 9 8 5 5 9 2 1 5 9 5 1 5 7 5 3 7 3 6 1 2 7 1 6 3 5 7 8 1
## [2110] 5 7 9 3 5 7 5 5 1 3 9 1 5 8 5 5 5 5 5 5 3 8 5 2 5 8 5 3 3 3 6 8 7 7 4 5 5
## [2147] 1 1 3 3 2 7 5 5 5 4 5 5 5 7 2 5 6 9 6 1 7 3 9 7 9 5 5 8 9 9 6 3 1 1 5 1 3
## [2184] 1 4 7 1 5 7 7 5 5 1 7 5 5 7 5 3 5 9 1 7 2 5 9 3 9 4 2 2 9 7 4 2 7 3 9 5 5
## [2221] 9 2 5 1 2 9 1 1 9 5 5 2 1 7 8 9 5 1 4 1 5 1 8 6 5 1 2 9 5 5 5 3 9 6 5 5 5
## [2258] 3 3 2 5 5 3 1 5 8 3 5 3 2 8 7 9 7 5 9 5 1 1 9 3 9 7 3 9 1 5 5 7 5 1 1 5 5
## [2295] 5 3 9 3 1 5 2 5 9 5 5 9 8 1 7 3 9 9 3 2 3 7 3 2 1 5 1 6 5 3 8 3 1 1 9 1 3
## [2332] 1 5 9 8 1 2 2 5 1 5 1 1 9 5 8 3 1 3 9 9 1 9 1 5 1 1 1 1 3 2 5 3 9 5 5 1 7
## [2369] 1 8 3 9 5 7 5 1 9 9 3 5 1 9 9 3 2 1 3 1 3 8 3 5 5 7 8 3 1 5 9 5 5 9 9 1 2
## [2406] 9 9 3 1 3 9 9 3 4 5 3 5 9 3 9 1 3 9 1 3 1 2 2 2 7 1 3 1 9 7 9 5 2 1 8 5 8
## [2443] 3 5 5 2 9 7 2 3 5 3 9 2 9 3 5 5 9 8 9 5 3 5 6 8 8 7 1 3 9 1 3 3 5 1 5 9 5
## [2480] 9 6 5 1 9 2 1 5 8 5 7 1 1 5 3 2 3 8 5 1 3 3 6 5 5 3 1 9 5 7 5 5 2 3 1 9 9
## [2517] 3 9 3 5 3 9 4 1 1 5 9 1 8 7 9 5 7 3 8 9 2 1 9 9 5 5 2 5 9 6 9 6 1 1 5 9 3
## [2554] 3 5 1 4 8 8 3 5 9 1 1 3 3 8 3 8 1 4 2 6 4 1 5 3 3 5 5 4 8 2 9 7 2 8 3 9 7
## [2591] 1 3 7 7 5 9 1 9 3 5 9 1 2 1 9 1 1 1 1 9 6 3 2 1 5 3 3 8 3 8 5 5 3 2 9 9 2
## [2628] 2 5 5 5 3 5 3 3 6 9 1 1 5 1 5 1 5 5 3 5 5 5 5 5 7 1 3 5 9 2 4 5 5 5 5 4 3
## [2665] 3 1 3 3 1 1 9 9 9 1 3 3 5 6 5 1 7 2 3 7 4 1 1 1 2 9 1 9 3 9 1 7 8 1 6 1 3
## [2702] 5 1 9 3 2 1 3 1 1 1 1 9 9 1 3 2 3 3 9 9 7 1 5 2 1 5 7 2 3 7 6 3 3 2 9 1 5
## [2739] 7 3 2 5 3 1 8 5 3 5 2 3 3 9 5 5 1 5 3 9 8 2 5 1 7 5 2 5 3 5 5 4 3 3 6 3 7
## [2776] 5 9 6 7 5 1 5 5 5 1 5 5 9 7 8 7 9 5 5 1 3 6 4 1 9 5 7 5 9 7 7 5 1 5 1 2 2
## [2813] 5 9 1 4 6 1 3 5 7 1 5 5 3 1 6 1 9 2 3 2 2 9 5 9 8 9 4 9 7 3 1 1 3 9 9 1 5
## [2850] 9 1 1 5 7 3 3 7 9 3 4 1 7 3 9 2 9 2 5 6 3 8 8 1 5 5 7 5 3 7 3 7 7 1 1 1 3
## [2887] 2 3 5 9 4 5 5 1 1 2 5 1 3 1 5 1 7 7 2 1 2 2 5 2 9 1 4 5 1 1 5 5 1 3 5 9 5
## [2924] 1 2 2 6 7 9 9 5 8 2 9 5 2 9 3 5 8 9 1 1 9 1 6 9 5 5 8 6 9 3 5 9 3 1 5 3 5
## [2961] 9 1 7 5 3 1 3 1 1 3 9 3 3 9 1 3 1 8 3 8 1 2 5 1 4 8 7 7 3 5 7 5 1 3 8 4 3
## [2998] 2 1 2 5 7 5 9 1 1 9 9 9 9 9 3 3 2 1 9 5 5 1 5 9 5 9 2 9 9 1 1 1 7 3 3 9 9
## [3035] 5 5 2 5 9 9 8 8 5 1 1 5 9 3 1 1 9 1 8 5 5 1 7 8 9 3 7 9 5 5 7 9 3 7 2 3 3
## [3072] 1 5 5 9 2 3 9 9 5 5 1 3 8 9 5 7 9 8 1 1 5 9 9 5 3 6 1 3 2 3 9 5 5 1 8 2 5
## [3109] 4 3 9 8 9 1 3 3 7 5 3 2 9 1 1 2 7 7 5 5 5 5 7 5 5 7 9 1 9 7 7 9 9 5 3 9 9
## [3146] 7 1 1 5 5 3 7 5 3 5 1 5 9 7 5 7 5 1 7 1 7 1 5 3 1 3 5 3 5 2 5 9 7 8 3 2 1
## [3183] 6 1 5 5 3 5 9 7 3 1 1 6 1 7 3 1 5 9 4 3 1 7 1 3 9 9 2 7 2 5 4 1 1 1 3 3 4
## [3220] 1 6 1 1 2 7 5 1 2 1 9 5 1 7 8 1 5 1 1 7 9 7 8 9 5 5 9 1 1 8 1 3 3 3 6 5 9
## [3257] 4 8 5 5 7 3 5 3 5 1 5 2 1 3 5 8 1 9 7 1 7 7 9 1 2 5 1 9 8 9 3 1 5 9 1 2 7
## [3294] 1 8 7 3 2 8 2 5 1 5 3 5 1 1 2 3 1 2 5 3 3 7 5 5 9 5 3 5 5 9 1 5 1 1 7 1 9
## [3331] 9 9 5 5 3 9 9 9 5 2 9 9 5 1 1 7 1 8 1 9 1 9 7 5 9 3 9 8 1 3 5 7 5 3 1 3 4
## [3368] 3 1 1 7 1 7 1 1 5 9 3 3 5 1 8 7 1 3 5 5 8 3 3 1 7 3 7 9 1 8 1 2 1 5 2 3 7
## [3405] 2 5 9 6 5 9 5 9 3 5 5 5 6 5 3 3 9 5 7 6 2 7 1 8 1 6 1 9 3 5 3 5 3 2 5 9 1
## [3442] 7 3 3 3 9 9 3 1 1 9 1 9 9 9 5 8 2 9 3 7 3 5 7 9 5 3 3 1 3 2 5 7 2 1 8 5 3
## [3479] 5 3 7 1 5 8 2 3 7 5 1 1 2 1 1 3 3 9 9 9 9 6 2 1 8 1 1 6 1 1 5 3 3 1 3 6 5
## [3516] 2 1 1 5 9 1 3 5 5 3 5 5 5 5 9 8 5 1 6 2 3 5 1 5 5 3 2 6 9 2 9 7 9 9 3 3 1
## [3553] 1 9 1 5 9 3 5 9 6 5 3 5 2 8 9 6 9 5 6 2 9 1 6 5 3 3 7 1 2 9 9 1 5 1 8 5 1
## [3590] 9 1 3 7 2 5 3 1 2 4 1 3 9 5 9 1 3 1 5 2 1 7 5 3 2 3 5 2 9 3 3 5 8 7 5 8 3
## [3627] 2 2 1 9 2 5 9 8 8 9 1 1 1 3 5 1 3 9 2 3 9 3 5 6 5 5 7 5 6 1 1 6 2 1 1 3 5
## [3664] 3 9 5 7 5 8 1 5 1 8 5 9 3 1 9 1 5 3 9 4 9 5 3 2 9 3 9 5 1 1 5 1 7 3 1 3 5
## [3701] 2 9 1 3 1 9 3 9 3 6 3 7 1 5 2 5 6 3 2 8 6 9 1 3 8 5 2 3 3 3 9 9 1 9 1 9 1
## [3738] 3 3 1 9 1 2 9 2 3 7 1 9 5 5 1 5 8 5 9 5 1 1 1 9 2 5 5 4 3 1 7 1 7 1 5 3 9
## [3775] 6 3 8 9 7 3 7 5 7 6 1 5 3 5 9 5 9 5 3 3 8 2 9 2 5 8 9 1 1 9 5 3 1 5 6 7 3
## [3812] 3 3 5 5 3 7 1 1 5 9 5 5 3 9 3 5 3 5 5 9 5 2 3 2 6 3 5 3 2 9 3 3 1 1 5 1 9
## [3849] 9 5 1 5 3 5 1 5 3 8 2 8 1 8 1 7 3 1 4 9 5 1 9 2 9 1 1 8 1 7 5 5 3 5 9 3 9
## [3886] 3 1 9 1 5 3 3 1 9 9 5 9 2 5 1 2 9 4 2 9 1 1 3 5 6 4 3 1 2 6 3 3 8 9 6 5 3
## [3923] 1 1 7 1 3 1 5 4 9 1 9 1 1 1 5 2 5 5 2 1 5 5 1 5 6 3 2 1 1 5 5 5 3 9 5 5 1
## [3960] 5 1 3 8 4 7 1 3 1 1 7 5 3 7 1 3 9 1 6 5 1 5 5 2 1 5 6 1 1 3 9 3 5 3 2 9 1
## [3997] 1 2 7 3 8 5 1 3 5 7 9 7 8 7 5 1 9 3 2 3 1 1 1 8 9 3 6 1 1 1 9 3 4 5 9 1 3
## [4034] 2 3 9 9 3 9 1 1 3 1 5 5 4 7 5 8 9 5 5 3 6 1 5 5 1 5 8 3 1 5 3 2 1 5 4 2 5
## [4071] 9 5 5 5 1 1 3 1 5 3 5 2 5 9 5 8 9 9 8 9 5 5 9 9 7 5 5 3 5 7 3 3 7 1 8 5 6
## [4108] 5 2 9 3 6 2 3 7 5 3 6 5 6 5 9 5 9 5 6 7 3 1 5 5 9 5 5 1 5 3 1 3 5 5 5 5 5
## [4145] 9 1 1 2 9 5 1 2 5 9 9 5 9 5 5 2 5 8 3 3 5 3 9 4 5 5 5 5 9 3 1 9 5 9 1 5 5
## [4182] 9 5 9 3 3 3 5 9 1 9 3 1 9 5 5 7 1 5 9 3 6 2 2 1 9 9 5 1 5 5 4 5 1 1 5 1 9
## [4219] 9 3 9 2 5 4 9 6 4 4 5 1 1 5 9 1 3 9 5 5 1 9 3 5 5 8 3 1 5 5 2 1 9 1 7 3 5
## [4256] 3 2 3 7 5 1 5 2 2 6 1 5 9 9 9 2 3 7 1 3 5 7 6 9 5 3 8 9 3 7 1 4 9 5 3 8 6
## [4293] 1 3 2 9 5 6 7 5 5 7 5 7 8 1 5 2 5 8 9 9 1 9 5 5 9 9 9 5 1 5 3 2 1 5 1 1 5
## [4330] 3 1 6 8 7 5 8 3 3 2 9 1 4 1 9 2 9 5 4 3 9 5 1 6 8 9 5 3 7 5 5 9 1 9 9 9 9
## [4367] 9 5 5 9 1 6
## 
## $centers
##   rec_bins freq_bins mon_bins
## 1 1.370748  4.968254 4.532880
## 2 4.488571  2.482857 2.602857
## 3 1.488406  2.873913 2.626087
## 4 3.735294  2.343137 4.627451
## 5 4.877998  1.418144 1.352450
## 6 1.467105  2.651316 4.677632
## 7 3.000000  2.416918 2.459215
## 8 3.612903  4.894009 4.041475
## 9 2.120464  1.407837 1.391872
## 
## $totss
## [1] 28750.38
## 
## $withinss
## [1] 802.4229 350.6486 753.9681 158.6863 618.9218 127.5592 236.6647 404.6728
## [9] 693.5936
## 
## $tot.withinss
## [1] 4147.138
## 
## $betweenss
## [1] 24603.24

Within cluster sum of squares by cluster:

[1] 340.9895 117.6919 386.8711 687.8474 926.0398 238.7811 989.9324 343.0778 109.8140

(between_SS / total_SS = 85.6 %)

k_mod10=kmeans(rfm_bin[,c("rec_bins","freq_bins","mon_bins")],centers=10)

df_mod10=cbind(rfm_bin[,c("custid","rec_bins","freq_bins","mon_bins")],"cluster"=k_mod10$cluster)
df_mod10$cluster=as.factor(df_mod10$cluster)

head(df_mod10)
##   custid rec_bins freq_bins mon_bins cluster
## 1  12346        5         1        1       4
## 2  12347        1         5        5       7
## 3  12348        3         2        4       1
## 4  12349        2         3        4       8
## 5  12350        5         1        2       4
## 6  12352        2         4        3       5
head(k_mod10)
## $cluster
##    [1]  4  7  1  8  4  5  4  1  4  8  7  8  7  9  4  7  4  8  4  3  9  8  1  4
##   [25]  8  3  1  9  1  7  8  2  3  4  7  3  5  1  1  7  7  8  1  4  4  3  1  7
##   [49]  8  7  9  1  1  1  4  7  7  1  3  8  1  7  1  1  4  8  7  7  3  7  7  7
##   [73]  1  1  4  7  7  4  3  7  3  1  4  3  7  4  7  3  1  3  1  7  1  1  1  8
##   [97]  8  8  8  1  7  7  7  7  1  7  7  8  3  7  7  8  7  8  4  7  3  3  4  8
##  [121]  1  3  8  2  9  4  3  4  4  1  3  4  1  3  3  1  4  1  7  7  3  9  4  3
##  [145]  7  7  8  3  7  1  3  3  1  1  7  3  7  7  8  3  1  8  4  4  1  4  3  7
##  [169]  5  8  3  4  7  4  7  4  4  3  7  7  3  8  4  4  8  5  7  3  4  3  4  7
##  [193]  7  2  3  3  3  3  1  4  4  4  7  3  7  7  8  8  4  3  3  3  4 10  1  7
##  [217]  1  3  7  4  7  1  3  3  7  8  7  4  4  4  1  7  7  8  8  3  9  6  9  8
##  [241]  4  8  4  8  1  4  8  8  7  4  4  3  4  1  1  3  7  8  8  3  3  7  8  4
##  [265]  4  3  7  2  7  4  3  8  8  7  1  8  7  7  7  7  7  4  9  8  4  8  1  1
##  [289]  3  8  7  1  3  3  8  7  4  7  7  1  7  8  7  4  8  1  3  3  7  7  1  8
##  [313]  8  4  7  7  1  4  7  4  4  4  1  4  4  1  3 10  9  7  7  7  4  1  7  1
##  [337]  1  3  7  9 10  8  4  1  7  1  4  1  8  8  7  8  7  8  8  3  3  3  4  4
##  [361]  4  4  1  3  4  8  4  3  4  4  3  4  1  4  4  4  8  4  1  1  3  5  3  8
##  [385]  4  8  4  3  4  4  9  4  5  7  9  7  1  6  3  4  8  8  4  4  1 10  4  7
##  [409]  1  3  4  5  4  7  2  4  3  4  4  4  1  5  8  3  4  8  8  3  1  1  4  3
##  [433]  4  3  3  4  7  4  3  8  3  7  8  8  8  4  9  4  8  3  7  4  3  1  8  8
##  [457]  4  3  7  5  7  8  5  3  1  5  1  4  3  4 10  7  7  8  8  8  3  7  4  7
##  [481]  3  7 10  3  8  4  5  7  4  1  4  1  3  4  3  8  3  4  8  3  3  3  8  3
##  [505]  8  4  4  7  4  4  7  4  3  4  4  5  7  7  9  1  3  7  7  1  8  1  8  3
##  [529]  5  8  4  3  1  1  1  8  4  4  4  3  7  7  1  7  4  1  3  4  4  3  4  8
##  [553]  4  3  3  3  7  4  4  1  5  7  3  4  7  1  3  4  7  7  3  3  2  8  3  7
##  [577]  7  4  4  7  3  8  4  8  4  8  5  7  7  4  8  8  4  4  1  9  7  3  4  8
##  [601]  4  4  6  1  7  7  8  7  1  9  3  4  3  3  8  7  8  1  3  4  8  8  1  5
##  [625]  3  4  1  8  4  8  5  1  3  8  8  7  3  3  7  3  7  7  4  8  4  3  3  1
##  [649]  3  4  7  7  7  8  8  3 10  7  4  8  5  1  4  4  4  1  1  4  9  8  4  4
##  [673]  3  4  7  5  3  4  8  8  4  1  4  4  4  3  7  3  4  1  1  3  3  8  3  3
##  [697]  4  4  7  1  7  7  7  7  4  5  3  4  3  3  3  3  1  8  3  4  7  4  3  1
##  [721]  4  4  8  3  4  4  1  4  4  8  4  8  5  8  3  8  8  8  9  3  7 10  3  3
##  [745]  8  8  1  7  4  8  1  3  9  1  4  1  7  1  4  9  4  3  3  3  8  3  3  1
##  [769]  1  1  4  4  3  7  8  3  7  3  4  4  1  3  9  1  1  5  7  4  7  4  4  8
##  [793]  3  4  7  4  8  1  4  4  3  3  3  7  8  4  1  8  3  7  3  4  6  9  1  7
##  [817]  3  3  8  8  1  3  7  3  7  4  3  8  7  3  8  7  4  4  8  8  7  3  8  4
##  [841]  1  4  5  7  4  7  3  4  1  1  8  4  6  4  3  4  4  1  3  7  4  1  1  4
##  [865]  4  8  3  4  8  8  1  3  3  3  9  4  7  4  8  7  4  4  3  1  8  9  1  3
##  [889]  9  5  3  7  8  3  7  3  4  3  4  7  7  8  3  3  5 10  8  4  9  9  3  5
##  [913]  3  4  1  1  4  3  5  4  3  4  7  1  3  8  7  8  3  4  1  4  3  7  3  8
##  [937]  1  3  9  3  5  3  7  4  5  3  3  3  5  5  1  5  4  3  4  4  8  4  6  8
##  [961]  8  1  7  5  1  8 10  3  1  4  3  7  4  8  4  7  3  8  7  1  4  3  7  2
##  [985]  1  4  3  4  7  3  3  4  3  4  4  7  8  4  4  8  4  1  3  8  4  7  8  3
## [1009]  4  7  4  7  8  4  1  4  7  3  4  4  2  4  5  4  8  1  3  1  4  6  8  3
## [1033]  8  1  4  3  7  5  4  3  4  1  7  8  1  4  4  1  1  4  1  1  4  7  7  7
## [1057]  8  3  8  4  1 10  7  7  9  5  3  7  4  8  4  5  8  4  3  8  3  3  7  1
## [1081]  4  3  1  4  7  1  3  4  8  4  8  4  3  8  1  7  3  3  1  4  5  8  8  4
## [1105]  3  3  4  8  3  4  8  4  5  4  9  3  3  8  1 10 10  1  8  7  4  3  4  8
## [1129]  7  4  3  3  8  8  9  7  7  4  4  6  3  3  1  7  7  8  7  8  4  3  4  4
## [1153]  4  7  3  1  3  7  3  4  3  1  9  3  9  9  3  3  8  3  4  3  7  3  3  3
## [1177]  3  4  3  1  4  4  1  4  4  3  3  8  8  3  3  4  7  8  1  2  8  3  4  5
## [1201]  4  3  3  3  1  4  7  7  3  4  3  7  4  3  1  3  6  7  3  7  3  7  1  4
## [1225]  8  3  7  7  8  7  4  8  1  7  8  1  1  4  4  3  1  2  8  3  4  4  3  4
## [1249]  3  3  7  7  7  3  8  4  4  1  3  7  4  5  1  4  8  4  7  8  7  3  4  3
## [1273]  1  7  7  4  7  7  8  4  3  4  5  3  8  4  3  1  4  3  2  4  5  7  3  7
## [1297]  3  4  7  5  7  3  7  4  1  8  4  1  9  3  3  7  8  7  8  4  8  4  4  7
## [1321]  3  7  3  1  3  8  4  7  4  7  8  3  8  8  4  4  8  7  3  4  4  8  3  1
## [1345]  4  7  3  3  7  2  4  1  1  4  3  1  3  3  9  4  3  7  5  7  3  4  8  7
## [1369]  7  1  7  4  4  8  4  1  3  3  4  4  8  9  9  1  4  8  7  8  7  3  3  4
## [1393]  7  1  1 10  8  7  1  1  7  8  5  8  3  4  4  7  8  4  4  7  2  1  4  4
## [1417]  7  8  1  9  7  4  8  7  4  4  1  4  4  3  3  1  7  4  7  3  8  7  3  4
## [1441]  8  7  7  7  8  3  8  7  7  3  4  4  6  1  9  7  4  8  4  7  3  4  5  4
## [1465]  4  4  7  4  8  3  7  8  8  4  4  4  7  3  1  3  1  4  3  4  4  1  4  3
## [1489]  4  1  3  8  7  3  1  7  4  4  4  4  4  3  3  5  8  3  4  6  7  8  7  4
## [1513]  7  3  7  4  7  1  5  4  1  7  1  5  4  8  4 10  7  3  7  5  3  1  7  4
## [1537]  3  7  3  5  4  7  3  4  4  4  1  8  8  8 10  5  8  3  5  4 10  3  4  7
## [1561]  4  1  4  2  9  4  2  8  3  8  9  3  3  1  4  3  4  3  4  7  4  3  3  5
## [1585]  1  4  4  7  3  3  4  4  7  5  3  3  7  7  5  7  7  5  3  8  4  4  1  7
## [1609]  3  3  3  3  4  6  7  7  3 10  7  1  8  7  9  4  3  3  3  8 10  4  7  7
## [1633]  7  7  4  4  8  3  4  5  7  3  3  8  1  7  9  1  8  3  4  7  2  4  5  3
## [1657]  3  3  5  2  3  4  5  4  5  5  5  8  6  8  3  4  3  4  7  7  8  3  4  3
## [1681]  4  4  7  4  5  3  1  7  4  1  5  8  4  4  3  3  9  7  3  3  1  8  4  7
## [1705]  4  5 10  3  7  8  4  5  3  7  3  3  5  5 10  3  7  2 10  1  8  5  8  4
## [1729]  7  3  4  5  4  7  4  3  8  1  4  7  4  5  4  7  7  7  3  5  4  8  7  5
## [1753]  7  8  7  3  8  3  5  8  4  5  8  4  4  7  3  7  7  7  8  8  8  1  8  8
## [1777]  1  4  8  3  3  3  7  8  3  1  7  4  3  4  3  3  7  3  7  1  4  1  9  3
## [1801]  1  4  3  4  3  3  8  3  8  3  3  8  4  7  3  3  7  3  1  3  8  3  7  7
## [1825]  4  8  4  1  1  3  3  4  4  8  7  1  3  3  8  3  6  4  9  7  9  4  7  4
## [1849]  3  9  3  9  4  8  1  8  3  3  8  3  3  7  1  7  8  4  5  4  8  5  1  3
## [1873]  3  8  1  4  1  4  4  4  4  8  1  7  4  8  5  5  3  7  8  4  7  3  3  7
## [1897]  8  8  3  1  1  1  8  8  4  3  9  8  4  1  1  7  1  7  3  3  8  3  3  7
## [1921]  3  8  4  4  1  3  7  4  5  4  1  3  3  3  1  5  4  1  3  3  1  9  4  3
## [1945]  4  3  4  3  3  4  3  2  2  7 10  4  5  3 10  3  4  3  3  4  7  5  7  7
## [1969]  3  3  8  8  3  5  1  7  7  3 10  5  7  4  4  3  7  4  7  4 10  4  8  5
## [1993]  4  8  5  1  7  5  5  7  1  4  7  8  1  5  1  4  1  8  1  1  1  7  1  3
## [2017]  4  4  8  7  4  3  4  7  1  3  3  4  3  4  3  8  1  7  5  4  1  4  8  8
## [2041]  7  7  3  8  8  4  4  4  3  1  7  3  7  3 10  8  4  8  1  8  4  8  4  1
## [2065]  3  4  7  8  2  4  3  4  7  7  3  3  8  7  3  7  4  3 10  4  4  3  4  7
## [2089]  4  3  4  7  4  1  4  3  3  3  8  7  1  3  7  8  8  4  1 10  6  4  1  3
## [2113]  8  4  1  4  4  7  3  3  7  4  6  4  4  4  4  4  4  8  9  4  4  4  2  4
## [2137]  5  8  8  8  6  3  3  1  4  4  7  7  8  8  4  1  4  4  4  1  4  4  4  3
## [2161]  1  4  8  3  8  7  1  8  3  3  3  4  4  9  3  3  8  8  7  7  4  7  3  7
## [2185]  1  3  7  4  1  1  4  4  7  1  4  4  3  4  3  4  3  7  3  4  4  3  8  3
## [2209]  1  4 10  3  3  1  4  3  3  3  4  4  3  4  4  7  1  3  7  7  3  4  4  1
## [2233]  5  3  6  3  4  7  1  7  4  5  2  8  4  7  4  3  4  4  4  8  3  8  4  4
## [2257]  4  8  8  1  4  4  3  5  4  9  5  4  8  4  9  3  3  1  4  3  4  5  5  3
## [2281]  3  3  3  8  3  5  4  4  3  4  7  5  4  4  4  8  3  3  5  4  4  4  3  4
## [2305]  4  3  2  7  3  8  3  3  8  1  8  3  8  1  7  4  7  8  4  8  9  8  7  5
## [2329]  3  7  8  7  4  3  9  5  4  1  4  5  4  7  7  3  4  9  3  7  3  3  3  5
## [2353]  3  7  4  7  5  7  5  8  4  4  3  3  4  4  7  3  7  6  8  3  4  3  4  7
## [2377]  3  3  8  4  5  3  3  8  1  7  8  7  5  2  8  4  4  3  9  8  5  4  3  4
## [2401]  4  3  3  7  1  3  3  8  7  8  3  3  8  1  4  8  4  3  8  3  7  8  3  5
## [2425]  8  7  4  4  1  1  7  8  7  3  1  3  4  4  7  2  4  2  3  4  4  4  3  3
## [2449]  1  8  4  8  3  1  3  5  4  4  3  2  3  4  8  4  8  9  6  3  7  8  3  5
## [2473]  8  8  4  7  4  3  4  3  8  4  7  3  1  5  4  9  4  1  5  7  4  8  4  3
## [2497]  2  4  7  5  8  8  4  4  3  7  3  4  1  4  4  1  8  7  3  3  8  3  8  4
## [2521]  8  3  1  7  7  4  3  7 10  1  3  4  3  8  9  3  4  7  3  3  4  4  1  4
## [2545]  3  8  3  8  7  5  4  3  8  8  4  7  1 10 10  8  4  3  7  7  8  8  2  3
## [2569] 10  7  1  1  8  1  7  4  3  8  4  4  1  6  1  3  1  1  9  8  3  3  7  8
## [2593]  3  1  4  3  7  3  5  4  3  7  1  7  3  5  5  7  5  3  8  8  4  7  4  3
## [2617]  5  9  5 10  4  4  8  4  3  3  4  4  4  4  4  8  4  3  5  8  3  5  5  4
## [2641]  5  4  5  4  4  5  4  4  4  4  4  3  7  8  4  3  4  1  4  4  4  4  1  8
## [2665]  3  7  8  8  7  7  3  3  3  5  3  3  4  8  4  7  3 10  8  1  1  7  5  7
## [2689]  1  3  5  3  8  3  7  3 10  7  8  7  5  4  6  3  8  4  7  5  7  5  5  5
## [2713]  3  3  7  8  4  5  3  3  3  1  7  4 10  7  4  1  1  3  1  8  8  8  1  3
## [2737]  5  4  3  8  1  4  8  7 10  4  8  4  4  5  8  3  4  4  7  4  8  3  9  1
## [2761]  4  5  1  4  1  4  8  4  4  1  8  8  8  8  3  4  3  8  1  4  5  4  4  4
## [2785]  7  4  4  3  1 10  1  3  4  4  7  8  8  1  7  3  4  1  4  3  1  3  4  7
## [2809]  4  7  1  4  4  3  7  1  8  7  3  4  1  7  4  4  8  7  8  6  3  1  8  1
## [2833]  1  3  4  3  9  3  1  3  1  3  7  7  8  3  3  7  4  3  5  7  4  3  3  5
## [2857]  3  3  8  1  7  3  8  3  1  3  1  4  8  5  2 10  5  4  4  1  4  8  3  8
## [2881]  3  3  7  7  7  3  1  8  4  3  1  4  4  7  7  4  4  7  8  5  4  7  1  1
## [2905]  1  5  4  4  4  4  3  5  1  4  5  5  4  4  7  8  4  3  4  7  4  4  8  1
## [2929]  3  3  4  9  1  3  4  1  3  3  4 10  3  7  7  3  5  8  3  4  4 10  8  3
## [2953]  8  4  3  8  5  4  8  4  3  7  3  4  8  7  8  7  5  8  3  8  8  3  5  8
## [2977]  5 10  5 10  5  4  4  7  1 10  3  3  3  4  1  4  7  5 10  1  3  4  7  4
## [3001]  4  3  4  3  7  7  3  3  3  3  3  8  5  1  7  3  4  4  7  4  3  4  3  4
## [3025]  3  3  5  5  7  3  5  3  3  3  4  4  1  4  3  3  6  9  4  7  5  4  3  8
## [3049]  5  5  3  5 10  4  4  7  3  9  3  3  1  3  4  4  3  3  8  1  1  5  5  7
## [3073]  4  4  3  1  3  3  3  4  4  5  8  6  3  4  3  3  2  7  7  4  3  3  4  8
## [3097]  8  5  3  1  8  3  4  4  7  9  1  4  1  8  3  9  3  7  8  3  1  4  3  1
## [3121]  3  7  5  1  1  3  4  4  4  4  1  4  4  3  3  7  3  3  3  3  3  4  8  3
## [3145]  3  3  7  7  4  4  8  3  4  3  4  7  4  3  1  4  1  4  7  3  7  3  7  4
## [3169]  8  6  8  4  8  4  1  4  3  3  9  8  4  7  8  5  4  4  8  4  3  3  3  5
## [3193]  7  8  7 10  8  7  4  3  1  8  7  3  7  8  3  3  4  3  1  4  1  7  7  7
## [3217]  5  8  1  7  8  7  7  2  3  4  7  4  7  3  4  7  3  2  5  4  5  7  1  3
## [3241]  1  9  3  4  4  3  7  5  9  7  8  8  5  8  4  3  1 10  4  4  3  8  4  8
## [3265]  4  7  4  1  7  3  4 10  7  3  1  7  3  3  3  7  1  4  7  3 10  3  5  6
## [3289]  4  3  5  4  3  5  2  3  3 10 10  1  4  5  4  3  4  7  7  4  5  7  4  4
## [3313]  3  8  3  4  4  3  4  8  4  4  3  7  4  7  6  1  7  3  3  3  4  4  3  3
## [3337]  3  3  4  1  3  3  4  5  7  1  7  9  5  3  5  3  1  4  3  5  3  2  5  5
## [3361]  4  3  4  5  5  3  1  3  7  7  3  5  3  5  7  4  3  8  5  4  5  2  3  7
## [3385]  8  4  4  9  8  3  7  3  8  1  3  7  9  7  1  7  4  4  8  1  1  4  3  8
## [3409]  4  3  4  3  5  4  4  4  8  4  3  8  3  4  3  8  1  3  7  9  7  8  7  3
## [3433]  8  4  5  4  8  4  4  3  7  1  8  8  8  3  3  8  6  7  3  5  3  3  3  4
## [3457] 10  1  3  3  1  8  4  1  3  4  8  5  6  8  4  4  1  1  7  9  4  3  4  8
## [3481]  1  7  4  9  4  8  1  4  7  7  1  7  5  8  8  3  3  3  3  8  1  7 10  7
## [3505]  7  8  7  6  4  8  8  5  8  8  4  1  7  5  4  3  5  8  4  4  3  4  4  4
## [3529]  4  3  2  4  7  8  4  8  4  7  4  4  8  1  8  3  4  3  3  3  3  8  5  7
## [3553]  6  3  7  4  3  8  4  3  8  4  8  4  1 10  3  8  3  4  8  1  3  7  8  4
## [3577]  8  5  3  7  1  3  3  7  4  7 10  4  7  3  7  8  3  4  4  8  7  1  1  7
## [3601]  3  3  4  3  5  3  7  4  1  7  1  4  3  1  8  4  1  3  5  3  4 10  1  4
## [3625] 10  8  4  1  7  3  1  4  3  2  6  3  5  5  5  5  4  7  3  3  4  8  3  8
## [3649]  4  8  4  4  1  4  8  7  7  8  1  5  5  8  4  3  3  4  3  4  2  7  4  7
## [3673]  2  4  3  8  7  3  5  4  8  3  1  3  4  3  4  3  5  3  4  7  7  4  5  3
## [3697]  3  5  3  4  4  3  7  8  7  3  3  3  3  8  8  1  7  4  4  4  8  8  1  9
## [3721]  8  3  7  5  2  4  4  8  8  8  3  3  7  3  7  3  7  8  8  7  3  7  4  3
## [3745]  4  3  3  7  3  4  4  7  4  2  4  3  4  7  7  7  3  4  4  4  1  8  5  3
## [3769]  5  1  7  4  8  3  8  8  2  3  3  8  3  4  3  8  7  4  3  4  3  4  3  4
## [3793]  8  3  2  1  3  4  4  9  3  7  7  3  4  3  5  4  8  3  8  8  8  4  4  8
## [3817]  1  7  7  4  3  4  4  8  3  3  4  5  4  4  3  4  4  8  1  8  5  4  3  1
## [3841]  3  8  3  5  7  4  5  3  3  4  7  4  8  4  7  4  8 10  1  9  5  9  7  1
## [3865]  8  7  1  3  4  7  3  4  3  5  7  9  7 10  4  4  8  4  3  8  3  8  7  3
## [3889]  7  4  3  8  7  3  3  4  3  1  4  7  1  3  1  1  3  7  7  8  4  8  1  3
## [3913]  7  4  8  3  8  9  3  8  4  8  7  7  3  7  8  7  4  1  3  7  3  7  7  7
## [3937]  4  1  4  4  1  7  4  4  7  4  8  8  1  7  7  4  4  4  3  3  4  4  7  4
## [3961]  7  8  9  1  1  7  8  7  7  1  4  8  1  7  3  3  6  8  4  7  4  4  1  7
## [3985]  4  8  7  7  5  3  8  4  8  4  3  7  7  1  3  3 10  4  5  3  4  3  3  3
## [4009]  2  1  4  7  3  3  4  8  5  7  5 10  3  8  8  7  5  7  3  3  1  4  3  7
## [4033]  8  1  3  3  3  8  3  5  7  3  7  4  4  1  1  4  2  3  4  4  8  8  7  4
## [4057]  4  7  4  9  5  7  4  3  4  7  4  1  1  4  3  4  4  4  5  5  3  5  4  3
## [4081]  4 10  4  3  4 10  3  3 10  3  4  4  3  3  1  4  4  3  4  3  8  5  1  7
## [4105] 10  4  8  4  4  3  8  8  1  8  1  4  8  8  4  8  4  3  4  3  4  8  3  8
## [4129]  7  4  4  3  4  4  5  4  5  7  8  4  4  4  4  4  3  5  7  4  3  4  5  1
## [4153]  4  3  3  4  3  4  4  1  4 10  3  8  4  3  3  1  4  4  4  4  3  3  5  3
## [4177]  4  3  5  4  4  3  4  3  5  8  5  4  3  7  3  5  7  3  4  4  3  7  4  3
## [4201]  3  8  1  1  7  3  3  4  7  4  4  1  4  7  7  4  7  3  3  8  3  1  4  1
## [4225]  3  8  1  1  4  5  7  4  3  7  8  3  4  4  7  3  3  4  4 10  3  7  4  4
## [4249]  1  7  3  5  3  3  4  8  4  8  1  4  7  4  1  1  8  7  4  3  3  3  1  3
## [4273]  3  5  3  4  3  8  3  4  8  2  3  8  1  7  1  3  4  8 10  8  7  3  4  3
## [4297]  4  8  1  4  4  1  4  1 10  7  4  1  4  9  3  3  7  3  4  4  3  3  3  4
## [4321]  7  4  8  4  7  4  7  7  4  8  7  8  2  3  4  6  8  8  1  3  7  1  7  3
## [4345]  1  3  4  1  5  3  4  7  8  2  3  4  8  1  4  4  3  7  3  3  3  3  3  4
## [4369]  4  3  7  8
## 
## $centers
##    rec_bins freq_bins mon_bins
## 1  3.787500  2.493750 3.308333
## 2  4.940000  4.860000 3.840000
## 3  2.150849  1.715285 1.552448
## 4  4.835014  1.517874 1.445463
## 5  1.550781  4.808594 2.789062
## 6  2.485714  4.771429 4.000000
## 7  1.312046  4.965167 4.936139
## 8  1.489292  2.710049 3.359143
## 9  3.219780  4.956044 5.000000
## 10 3.458333  4.722222 2.652778
## 
## $totss
## [1] 28750.38
## 
## $withinss
##  [1]  796.67292   51.56000 1295.57443  904.20898  151.57031   14.91429
##  [7]  212.26415  740.35585   19.42857   66.63889
## 
## $tot.withinss
## [1] 4253.188
## 
## $betweenss
## [1] 24497.19

#customer segmentation by clustering into 10 clusters #recency high(new customers) ,frequency low ,monetory all types

df_cluster1=df_mod10[df_mod10$cluster==1,] #(x4-5x) high recency

head(df_cluster1,20)  
##    custid rec_bins freq_bins mon_bins cluster
## 3   12348        3         2        4       1
## 8   12354        5         3        3       1
## 23  12372        3         3        3       1
## 27  12377        5         3        4       1
## 29  12379        3         2        3       1
## 38  12393        3         3        3       1
## 39  12394        3         2        3       1
## 43  12399        4         3        3       1
## 47  12405        5         3        4       1
## 52  12410        5         2        3       1
## 53  12412        3         3        3       1
## 54  12413        3         2        3       1
## 58  12418        4         2        3       1
## 61  12422        4         2        3       1
## 63  12424        5         2        4       1
## 64  12425        3         2        3       1
## 73  12434        3         3        3       1
## 74  12435        3         2        5       1
## 82  12446        3         3        3       1
## 89  12453        4         3        3       1
str(df_cluster1)
## 'data.frame':    480 obs. of  5 variables:
##  $ custid   : num  12348 12354 12372 12377 12379 ...
##  $ rec_bins : num  3 5 3 5 3 3 3 4 5 5 ...
##  $ freq_bins: num  2 3 3 3 2 3 2 3 3 2 ...
##  $ mon_bins : num  4 3 3 4 3 3 3 3 4 3 ...
##  $ cluster  : Factor w/ 10 levels "1","2","3","4",..: 1 1 1 1 1 1 1 1 1 1 ...
library(plyr)
# count(df_cluster1$rec_bins)
# count(df_cluster1$freq_bins)
# count(df_cluster1$mon_bins)
nrow(df_cluster1)
## [1] 480

#cluster 2 frequency high,recency high, monetory moderate to high,best customers

df_cluster2=df_mod10[df_mod10$cluster==2,] 
tail(df_cluster2,20) 
##      custid rec_bins freq_bins mon_bins cluster
## 2871  16222        5         5        3       2
## 3089  16520        5         5        3       2
## 3224  16714        5         4        3       2
## 3234  16725        5         5        3       2
## 3295  16801        5         5        3       2
## 3358  16889        5         5        3       2
## 3382  16919        5         5        5       2
## 3531  17126        5         5        3       2
## 3634  17282        4         4        4       2
## 3669  17337        5         5        5       2
## 3673  17341        5         5        3       2
## 3725  17406        5         5        5       2
## 3754  17444        5         5        5       2
## 3777  17472        5         5        3       2
## 3795  17504        5         5        5       2
## 4009  17787        5         5        4       2
## 4049  17850        5         5        5       2
## 4282  18168        5         5        3       2
## 4333  18231        5         5        5       2
## 4354  18260        5         5        5       2
nrow(df_cluster2)  
## [1] 50
# count(df_cluster2$rec_bins)
# count(df_cluster2$freq_bins)
# count(df_cluster2$mon_bins)

#cluster 3 average customers , low to average recency, frequency and spending capability

df_cluster3=df_mod10[df_mod10$cluster==3,]
nrow(df_cluster3)   
## [1] 1001
# count(df_cluster3$rec_bins)
# count(df_cluster3$freq_bins)
# count(df_cluster3$mon_bins)

View(df_cluster3) 

#cluster 4 recent buying customers,new

df_cluster4=df_mod10[df_mod10$cluster==4,]
nrow(df_cluster4)
## [1] 1091
head(df_cluster4,15) 
##    custid rec_bins freq_bins mon_bins cluster
## 1   12346        5         1        1       4
## 5   12350        5         1        2       4
## 7   12353        5         1        1       4
## 9   12355        5         1        2       4
## 15  12361        5         1        1       4
## 17  12363        4         2        2       4
## 19  12365        5         2        2       4
## 24  12373        5         1        2       4
## 34  12386        5         1        2       4
## 44  12401        5         1        1       4
## 45  12402        5         1        1       4
## 55  12414        5         2        2       4
## 65  12426        5         2        2       4
## 75  12436        4         1        2       4
## 78  12441        5         1        1       4
# count(df_cluster4$rec_bins)
# count(df_cluster4$freq_bins)
# count(df_cluster4$mon_bins)

#cluster 5 frequently buying customers loyal

df_cluster5=df_mod10[df_mod10$cluster==5,]
nrow(df_cluster5)
## [1] 256
# count(df_cluster5$rec_bins)
# count(df_cluster5$freq_bins)
# count(df_cluster5$mon_bins)


tail(df_cluster5,15) 
##      custid rec_bins freq_bins mon_bins cluster
## 4078  17886        2         5        3       5
## 4102  17917        2         4        2       5
## 4135  17961        2         5        3       5
## 4137  17964        2         5        2       5
## 4146  17974        2         5        3       5
## 4151  17979        2         5        3       5
## 4175  18016        2         5        3       5
## 4179  18022        2         5        3       5
## 4185  18034        2         5        2       5
## 4187  18036        2         4        2       5
## 4192  18043        2         5        2       5
## 4230  18096        1         5        3       5
## 4252  18125        2         5        3       5
## 4274  18156        1         5        3       5
## 4349  18252        2         4        2       5

#cluster 6 high paying customers having high frequency of buying

df_cluster6=df_mod10[df_mod10$cluster==6,]



tail(df_cluster6,15) 
##      custid rec_bins freq_bins mon_bins cluster
## 2582  15827        3         5        4       6
## 2703  16007        2         5        4       6
## 2828  16170        2         5        4       6
## 3041  16455        3         4        4       6
## 3084  16515        3         5        4       6
## 3170  16638        2         4        4       6
## 3288  16791        2         5        4       6
## 3327  16841        2         5        4       6
## 3449  17015        2         5        4       6
## 3469  17043        2         4        4       6
## 3508  17092        2         5        4       6
## 3553  17162        2         5        4       6
## 3635  17284        3         5        4       6
## 3977  17738        2         4        4       6
## 4336  18235        3         5        4       6
nrow(df_cluster6)
## [1] 35
# count(df_cluster6$rec_bins)
# count(df_cluster6$freq_bins)
# count(df_cluster6$mon_bins)

#cluster 7 high paying customers having high frequency of buying

df_cluster7=df_mod10[df_mod10$cluster==7,]
tail(df_cluster7,15) 
##      custid rec_bins freq_bins mon_bins cluster
## 4266  18145        1         5        5       7
## 4286  18172        1         5        5       7
## 4293  18180        1         5        4       7
## 4306  18198        1         5        5       7
## 4313  18210        1         5        5       7
## 4321  18219        1         5        5       7
## 4325  18223        1         5        5       7
## 4327  18225        1         5        5       7
## 4328  18226        2         5        5       7
## 4331  18229        1         5        5       7
## 4341  18241        1         5        5       7
## 4343  18245        1         5        5       7
## 4352  18257        2         5        5       7
## 4362  18272        1         5        5       7
## 4371  18283        1         5        5       7
nrow(df_cluster6)
## [1] 35
# count(df_cluster7$rec_bins)
# count(df_cluster7$freq_bins)
# count(df_cluster7$mon_bins)

#cluster 8 low frequency customers who rarely buy but consist of low to high spenders

df_cluster8=df_mod10[df_mod10$cluster==8,]
tail(df_cluster8,15) 
##      custid rec_bins freq_bins mon_bins cluster
## 4265  18144        1         3        5       8
## 4278  18161        1         3        4       8
## 4281  18167        1         3        3       8
## 4284  18170        2         2        3       8
## 4290  18177        2         3        3       8
## 4292  18179        1         3        4       8
## 4298  18188        1         3        5       8
## 4323  18221        2         3        3       8
## 4330  18228        2         2        3       8
## 4332  18230        1         3        5       8
## 4337  18236        2         3        3       8
## 4338  18237        1         3        3       8
## 4353  18259        2         2        5       8
## 4357  18263        2         3        3       8
## 4372  18287        2         3        4       8
nrow(df_cluster8)
## [1] 607
# count(df_cluster8$rec_bins)
# count(df_cluster8$freq_bins)
# count(df_cluster8$mon_bins)

#cluster 9 recent buyers frquent buyers, high spenders ,best customers

df_cluster9=df_mod10[df_mod10$cluster==9,]

tail(df_cluster9,15) 
##      custid rec_bins freq_bins mon_bins cluster
## 3348  16875        3         5        5       9
## 3388  16928        3         5        5       9
## 3397  16940        3         5        5       9
## 3428  16984        3         5        5       9
## 3476  17050        4         5        5       9
## 3484  17061        3         4        5       9
## 3720  17400        4         5        5       9
## 3800  17509        3         5        5       9
## 3860  17589        3         5        5       9
## 3862  17591        3         5        5       9
## 3876  17612        3         5        5       9
## 3918  17667        3         5        5       9
## 3963  17722        4         5        5       9
## 4060  17863        3         5        5       9
## 4310  18204        3         5        5       9
nrow(df_cluster9)
## [1] 91
# count(df_cluster9$rec_bins)
# count(df_cluster9$freq_bins)
# count(df_cluster9$mon_bins)

cluster 10 low spenders, frequent buyers

df_cluster10=df_mod10[df_mod10$cluster==10,]
tail(df_cluster10,15) 
##      custid rec_bins freq_bins mon_bins cluster
## 3587  17214        3         5        3      10
## 3622  17259        5         5        2      10
## 3625  17265        4         5        2      10
## 3858  17585        4         5        3      10
## 3878  17614        3         4        2      10
## 4001  17774        4         5        3      10
## 4020  17802        3         5        3      10
## 4082  17890        5         4        2      10
## 4086  17894        3         5        3      10
## 4089  17897        5         5        2      10
## 4105  17921        3         5        3      10
## 4162  17997        3         5        3      10
## 4244  18116        3         5        3      10
## 4291  18178        4         4        3      10
## 4305  18196        4         5        3      10
nrow(df_cluster10)
## [1] 72
# count(df_cluster10$rec_bins)
# count(df_cluster10$freq_bins)
# count(df_cluster10$mon_bins)

#high valued customers have RFM score of 5,5,5

df_mod10$customerID=rfm_bin$custid

df_mod10[ df_mod6$rec_bins==5 & df_mod6$freq_bins==5 & df_mod6$mon_bins==5 ,]
##      custid rec_bins freq_bins mon_bins cluster customerID
## 124   12501        5         5        5       2      12501
## 573   13093        5         5        5       2      13093
## 1196  13952        5         5        5       2      13952
## 1242  14016        5         5        5       2      14016
## 1564  14461        5         5        5       2      14461
## 2135  15235        5         5        5       2      15235
## 2243  15379        5         5        5       2      15379
## 2460  15665        5         5        5       2      15665
## 2567  15808        5         5        5       2      15808
## 3382  16919        5         5        5       2      16919
## 3669  17337        5         5        5       2      17337
## 3725  17406        5         5        5       2      17406
## 3754  17444        5         5        5       2      17444
## 3795  17504        5         5        5       2      17504
## 4049  17850        5         5        5       2      17850
## 4333  18231        5         5        5       2      18231
## 4354  18260        5         5        5       2      18260

#plot with 10 clusters

res.pca <- prcomp(df_mod10[,c("mon_bins","rec_bins","freq_bins")],  scale = TRUE)
# Coordinates of individuals
ind.coord <- as.data.frame(get_pca_ind(res.pca)$coord)
# Add clusters obtained using the K-means algorithm
ind.coord$cluster <- factor(df_mod10$cluster)
ggscatter(
  ind.coord, x = "Dim.1", y = "Dim.2", 
  color = "cluster", palette = "npg", ellipse = TRUE, ellipse.type = "convex",
  size = 1.5,  legend = "right", ggtheme = theme_bw(),
  xlab = paste0("Dim 1 (", variance.percent[1], "% )" ),
  ylab = paste0("Dim 2 (", variance.percent[2], "% )" )
) +
  stat_mean(aes(color = cluster), size = 4)